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As this book is being prepared for publication, sales of the 
Radio Shack TRS-80 microcomputer are approaching 
200,000 and another computer, the Video Genie, is being 
developed that will use the same software. These small 
but powerful general purpose computers are driven by the 
same BASIC interpreter, Microsoft BASIC, known to 
TRS-80 purchasers as Level II BASIC. 

Finding adequate documentation on Microsoft BASIC 
has been a continuing problem. Microsoft has a 
dominating position in the field as the author of APPLE, 
PET, ALTAIR, KIM, and Heathkit BASIC as well as the one 
described in this book, and they have been 
understandably reluctant to make it easy on a potential 
competitor by selling the documented source code for 
their product. 

We respect their rights to their product, and for that 
reason do not supply source and object code in this book. 
We do provide sufficient comments and a disassembler so 
that you can create your own source code, but to do this 
you must first purchase one of these computers, so that 
Microsoft receives its due royalties. 

This book is a compilation of four items previously 
published separately. The TRS-80 Disassembled 
Handbook was published by Richcraft Engineering Ltd. 
of Chautauqua, NY at $10.00 (copyright © 1980 Richcraft 
Engineering, Ltd). Supermap, Level II ROM 
Documentation, was published by Fuller Software of 
Grand Prairie, Texas for $18.95 (copyright (c) 1979 Fuller 
Software). HEX-MEM, the BASIC monitor by John T. 
Phillipp, was published in the February 1980 issue of 
Prog/80 Magazine and The Z-80 Disassembler by George 
Blank in the June, 1980 issue (copyright (c) 1980SoftSide 
Publications, Milford, NH 03055 — subscription price, $15 
a year for 6 issues). We are grateful to the authors for 
granting us permission to collect their works for the 
convenience of our readers. 

The Forward, Introduction, and first 9 chapters of this 
book are from The TRS-80 Disassembled Handbook by 
Robert M. Richardson, and are presented as a series of 
lessons in the use of ROM subroutines. Chapter 10 is 
Supermap by Roger Fuller, which lists, in sequential 
order, comments on the contents of the Level II BASIC 
ROM indexed to hexadecimal memory locations. Chapter 
11 is HEX-MEM, a monitor program written in BASIC to 
enable readers to examine the ROM directly and 
experiment with machine language programming. 
Chapter 12 is a complete Z-80 disassembler, which in 
conjunction with a computer, a printer and thecomments 
in Chapter 10, will enable the reader to produce a 
commented source listing of the Level II BASIC ROM for 
personal use. 

Chapter 13 contains comments on the Disk Operating 
Systems TRSDOS and NEWDOS by John Hartford. 
Chapter 14 is the specification sheet for the floppy disk 
controller chip used in the TRS-80, manufactured by 
Western Digital. Our thanks to Western Digital for 
permission to reprint this material. 

These programs, while very useful, will not satisfy the 
serious programmer, who will desire more powerful 
programming tools. For those who do their programming 
on cassette based machines, we recommend the Radio 
Shack EDITOR ASSEMBLER and a machine language 
monitor like T-BUG, RSM-1, RSM-1S, RSM-2, or STAD. 
Of the monitors, we recommend STAD (for symbolic 
trace and debug) which has more features, including 
multiple breakpoints, creation of symbol tables, and the 



ability to handle both tape and disk I/O, at an excellent 
price. Programmers with disk systems have a greater 
choice, with a fine monitor, DEBUG, included in the TRS- 
DOS operating system. This lacks a disassembler, tape 
I/O ability, and the trace routines of STAD, so you may 
still find the other program useful. Forassembly language 
programming, Apparat provides a disk version of the 
Radio Shack EDITOR ASSEMBLER as part of their 
NEWDOS+ package (you must still purchase the original 
from Radio Shack to get the documentation), or you can 
purchase Microsoft's powerful MACRO ASSEMBLER. T- 
BUG, TRS-DOS and the EDITOR ASSEMBLER are 
available from Radio Shack. STAD, NEWDOS+, RSM-2, 
and the Microsoft M-80 MACRO ASSEMBLER may be 
purchased from The Software Exchange, P.O. Box 68, 
Milford, NH (toll free telephone order line (800) 258-1 790.) 

We should not neglect to give credit where credit is due: 
TRS-80 and TRS-DOS are trademarks of Radio Shack, 
Division of Tandy Corporation. Z-80 is a trademark of 
Zilog Corporation, and the Z-80 assembly language 
mnemonics are copyrighted by the same company. 

This entire book is copyright © 1980 SoftSide Publi- 
cations, Milford, NH 03055. Printed in the United States of 
America. 

All rights reserved. No part of this publication may be 
reproduced, stored in any retrieval system, ortransmitted 
in any form or by any means, electronic, mechanical, 
photocopying, recording or otherwise, without the prior 
written permission of the publisher and the individual 
copyright owners. 

Introduction and Chapters 1 through 9 copyright © 1 980 
by Richcraft Engineering, Ltd., Chautauqua, NY 14722. 

Chapter 10 copyright © 1979 Fuller Software Grand 
Prairie, TX 75051. 

Z-80 Disassembler copyright © 1980 George Blank 
Milford, NH 03055. 

WD1771 Controller Specification Sheet Copyriqht © 
1980 Western Digital 

TRS-80, TRS-DOS, and Radio Shack are registered 
trademarks of The Radio Shack Division of Tandy 
Corporation. 

Z-80 is a registered trademark of Zilog Corporation and 
the Z-80 assembly language mnemonics are copyrighted 
by Zilog. 

Microsoft BASIC is a proprietary product of Microsoft 
Corporation and is copyrighted by them. For this reason 
we have not provided a listing of the Level 1 1 BASIC ROm" 
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Introduction to the 
TRS-80 Disassembled Handbook 

This handbook started out as a collection of lectures 
prepared as "fill-routines" by the author while on the tour 
circuit promoting his new book, "The Gunnplexer 
Cookbook — A 10 GHz Microwave Primer." It is a rather 
long jump (at least in frequency and wavelength) from the 
1.77 MHz clock of the TRS-80 to the 10250 MHz band 
where the Gunnplexer operates, but surprisingly the 
microwave buff and computer buff have more in common 
than meets the eye; i.e., a need to communicate whether it 
be by simple fm voice modulation or ASCII digital data 
link. 

This handbook is NOT for the beginning assembly 
language programmer who should certainly learn the 
fundamentals of the art before attempting to use the 
shortcuts and "tight code" programming made possible 
by using the myriad excellent Level II ROM subroutines 
presented. The moderately experienced assembly 
language programmer who understands the difference 
between his/her JPs and JRs, SETs and RESets, and BITs 
and bytes will find that utilizing Level II ROM subroutines 
opens up an entirely new vista to the wonderful world of 
assembly language programming. Many dull but 
demanding rote subroutines may now be accomplished 
often with a single CALL compared with previous multi- 
line/multipage programming that had to be entered a line 
at a time. Programmers arise. Cast off the yoke of 
ignorance and START HAVING FUN writing assembly 
language programs that run 300+ times fasterthan BASIC 
in less than 1/10th the memory. With practice, you (and 
the author) will soon be writing assembly language 
programs as quickly and with as little effort as those 
written in BASIC, FORTRAN, COBOL, or PASCAL. 

Disassembled machine code of any variety WITHOUT 
comments is worth about as much as a TRS-80 without 
electric power. Constants, address table entry points, and 
data lists are translated into utter meaningless/mislead- 
ing garbage by the disassembler program. Disassembled 
Level II ROM prints out EX AF,AF' from memory locations 
005AH, 1479H, 1619H, 18BAH, 18BCH, etc., etc., when in 
actuality none of the alternate register pairs are ever used 
in this ROM's BASIC program. 

Decoding and making any sense out of any object code 
program is impossible if one does not at least have a clue 
to the program's intended function. Fortunately we know 
exactly what Level II ROM's functions and capabilities 
are, so what appeared to be an impossible decoding 
problem is reduced to only an extremely difficult one. So 
difficult in fact, that even Radio Shack's computer division 
in Fort Worth, Texas does not fully understand this 
excellent "Tight Code" written by Microsoft's Paul Allen 
and Bill Gates. An example that proves this point is the 
Radio Shack book, "TRS-80 Assembly Language 
Programming," #62-2006, that was introduced midyear 
1979 has virtually no references to Level II ROM 
subroutines of any variety. 

The level of difficulty in decoding theTRS-80 ROM may 
be measured by the fact that after 2 years of worldwide 
use by over 200,000 computer buffs ranging from 
beginners to advanced programmers with years of 
experience, the Level II ROM entry points forvirtually ALL 
the BASIC functions and related subroutines have never 
been published with comments, or disclosed by anyone, 
anywhere, EXCEPT to a very limited audience by a genius 
named Andrew Hildebrand, located in the southwestern 
wilderness of the US. 

This handbook is dedicated to Mr. Hildebrand's genius, 
to his persistence in unraveling a very tangled web, and to 

1 



him personally for this very considerable 
accomplishment. The author's only contribution is this 
handbook which will hopefully remove the shroud of 
mystery from a previous "black hole" by attempting to 
make the subject understandable to hobbyists, high 
school and college students, and even computer science 
professors (many of whom do not have the slightest idea 
of how to efficiently utilize the myriad Level II ROM 
subroutines in TRS-80 assembly language 
programming). This handbook will also assist users in 
decoding the majority of ROM subroutines in ALL 
Microsoft BASIC'S including those used by APPLE, PET, 
KIM, Heathkit, et al microcomputer systems. 

Each section of this handbook is hopefully self- 
explanatory. The self-test questions and answers in 
chapters 8 and 9 allow you to check your progress after 
each Chapter. 
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Summary 



Chapter 1 illustrates how the majority of the ROM 
functions' CALL locations are decoded. 

Chapter 2 includes three source/object code programs 
and text illustrating the use of simple ROM +-*/ integer, 
single precision, and double precision arithmetic 
subroutines. 

Chapter 3 describes how to use the trigonometric, 
exponent, log, CINT, CSGN, CDBL, et al, functions in 
concert with the RAM accumulator and "CS" store, plus a 
demonstration program. 

Chapter 4 covers a number of the more useful and impor- 
tant Level II ROM ancillary subroutines. 

Chapter 5 is a summary of virtually all BASIC function 
CALL addresses. 

Chapter 6 presents and explains an extremely useful 
number conversion program that is virtually a must for the 
serious assembly language programmer working with the 
TRS-80. It is written in BASIC for comprehension/modifi- 
cation and covers: 

— DECIMAL TO BINARY ENTER D 

— BINARY TO DECIMAL ENTER B 

-" HEXADECIMAL TO BINARY ENTER HB 

— DECIMAL TO HEXADECIMAL ENTER DH 

— HEXADECIMAL TO DECIMAL ENTER HD 

— SPLIT TRS-80 TO DECIMAL ENTER SP 

— DECIMAL TO SPLIT HEXADECIMAL ENTER DS 

— SPLIT HEXADECIMAL TO DECIMAL ENTER SD 

The first five conversions are obvious ones. The sixth, 
SPLIT TRS-80 TO DECIMAL, is unique in that it takes 
decimal values displayed via the TRS-80 PEEK command 
from two adjacent memory locations (two INPUTS 
required), then converts them to hex, reverses the two hex 
numbers as the Z-80 stores LSB first and MSB second, 
then converts the four digit hex number to decimal, and 
displays it on video. This conversion is a real time saver 
when extracting addresses (0 to 65535) from ROM or 
RAM. 
Chapter 7 is a useful print all zeroes with a slash program. 

Chapter 8 includes self-test questions for Chapters 1 

through 7. 

Chapter 9 is a bibliography and answers to the self-test. 

Chapter 10 isalistingof comments on the Level II ROM, in 

sequential order and indexed to the hexadecimal memory 

address. 

Chapter 11 is a monitor program provided here for 
convenience in making HEX and ASCII memorydumpsof 
the Level II ROM. 

Chapter 12 is a Z-80 disassembler with the ability to 
assign labels to individual memory locations on printout. 
It is provided to make it possible for readers to assign 
labels based on the comments in Chapter 10 and printout 
commented source code from their own computer. 

Chapter 13 is a listing of comments on TRSDOS and 
NEWDOS, in sequential order and indexed to the 
hexadecimal memory address. 

Chapter 14 is the specification sheet for the WD1771 
Controller Chip. 
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Decoding Level II ROM 
Function Call Locations 



Introduction: 

During the past two years, the Level II BASIC written by 
Microsoft originally for the TRS-80 has become the 
standard de facto BASIC used by virtually every 
significant microcomputer manufacturer. As of January 
1980, the number of microcomputers delivered to end 
users with Level II or modest variations of Level II BASIC 
is estimated to exceed 300,000. With the number of 
BASICS in the marketplace counted in the dozens, 
including Hewlett-Packard BASIC, General Electric 
BASIC, and even monolithic IBM's "VS BASIC," there 
must be a number of good reasons for the near universal 
adoption of Microsoft's BASIC. 

1. Is it cheap? Answer: no, in actuality the license to use 
this BASIC is incredibly expensive. Heathkit does not 
charge hobbyists $100 a copy (just for the program) for 
fun. 

2. Is it efficient? Answer: you bet it is. Previous BASICs 
the author has studied required 22K to 32K memory to 
minimally perform the same functions, if indeed as many. 

3. Is it cost-effective? Answer: even at the high licensing 
price it is VERY cost-effective when one considers the 
tradeoffs between available program memory remaining 
with the inherent 64K maximum imposed by most all 8 bit 
microprocessors of the current generation. Some of the 
other BASICS mentioned above only leave the user about 
18K of useful RAM when a disk operating system and 
extended disk BASIC program is added. This is ridiculous 
in a 64K MEM system. 



Let's now take a look at the prodigious functions and 
their CALL locations in this marvel of "tight code" 
programming written by Paul Allen and Bill Gates. We 
doubt if there was any intentional encrypting involved 
when the program was written as encryption takes 
memory and memory costs money either directly or 
indirectly as pointed out above. The main reason it has 
been difficult to decode the Level II ROM was brought 
about primarily by its compactness; i.e., nothing wasted, 
nothing unused, and no easily deciphered points telling 
the code breaker, "here I am, use me." 

Level II ROM Function Name Locations: 

These are the easiest to find of all. Look at memory 
locations 571 2 through 6172. Figure 1 is an excruciatingly 
simple BASIC program that will display these names and 
their location on video for you. The first letter of each 
name's MSB is masked by subtracting 128 to obtain its 
ASCII equivalent. Figure 2 is a print out of this program. 
Remember, the numbers arethe name's location, NOT the 
CALL location. 

Figure 1 

10 ■• MICROSOFT BflSIC FUNCTIONS NAME LIST 

IN LEVEL II ROM 
15 •■" 

20 CLS : F0RN=5712T06i75 : V=PEEK(N> : IFV>127 
THENV=V-128 : M=N 
25 2=N+1 ; I FPEEK < Z > >i27THENPR I NTCHR$ ( V > ; " 

= ";ELSEGGT03:5 
3:0 PRINTM.. :GOTO40 
35 PRINTCHRfCT':-..- 
40 NEXT 



Figure 2 



END 


= 5712 


FOR 


=5715 


RESET 


= 5718 


SET 


= 5723 


CLS 


= 5726 


CMD 


= 5729 


RANDOM 


= 5732 


NEXT 


= 5738 


DATA 


= 5742 


INPUT 


= 5746 


DIM 


= 5751 


READ 


= 5754 


LET 


= 5758 


GOTO 


= 5761 


RUN 


= 5765 


IF 


= 5768 


RESTORE 


= 5770 


GOSUB 


= 5777 


RETURN 


= 5782 


REM 


= 5788 


STOP 


= 5791 


ELSE 


= 5795 


TRON 


= 5799 


TROFF 


= 5803 


DEFSTR 


= 5808 


DEFINT 


= 5814 


DEFSNG 


= 5820 


DEFDBL 


= 5826 


LINE 


= 5832 


EDIT 


= 5836 


ERROR 


= 5840 


RESUME 


= 5845 


OUT 


= 5851 


ON 


= 5854 


OPEN 


= 5856 


FIELD 


= 5860 


GET 


= 5865 


PUT 


= 5868 


CLOSE 


= 5871 


LOAD 


= 5876 


MERGE 


= 5880 


NAME 


= 5885 


KILL 


= 5889 


LSET 


= 5893 


RSET 


= 5897 


SAVE 


= 5901 


SYSTEM 


= 5905 


LPRINT 


= 5911 


DEF 


= 5917 


POKE 


= 5920 


PRINT 


= 5924 


CONT 


= 5929 


LIST 


= 5933 


LLIST 


= 5937 


DELETE 


= 5942 


AUTO 


= 5948 


CLEAR 


= 5952 


CLOAD 


= 5957 


CSAVE 


= 5962 


NEW 


= 5967 


TAB( 


= 5970 


TO 


= 5974 


FN 


= 5976 


USING 


= 5978 


VARPTR 


= 5983 


USR 


= 5989 


ERL 


= 5992 


ERR 


= 5995 


STRINGS 


= 5998 


INSTR 


= 6005 


POINT 


= 6010 


TIME$ 


= 6015 


MEM 


= 6020 


INKEY$ 


= 6023 


THEN 


= 6029 


NOT 


= 6033 


STEP 


= 6036 


+ 


= 6040 


- 


= 6041 


* 


= 6042 


/ 


= 6043 


f 


= 6044 


AND 


= 6045 


OR 


= 6048 


> 


= 6050 


= 


= 6051 


< 


= 6052 


SGN 


= 6053 


INT 


= 6056 


ABS 


= 6059 


FRE 


= 6062 


INP 


= 6065 


POS 


= 6068 


SQR 


= 6071 


RND 


= 6074 


LOG 


= 6077 


EXP 


= 6080 


COS 


= 6083 


SIN 


= 6086 


TAN 


= 6089 


ATN 


= 6092 


PEEK 


= 6095 


CVI 


= 6099 


CVS 


= 6102 


CVD 


= 6105 


EOF 


= 6108 


LOC 


= 6111 


LOF 


= 6114 


MKI$ 


= 6117 


MKS$ 


= 6121 


MKD$ 


= 6125 


CINT 


= 6129 


CSNG 


= 6133 


CDBL 


= 6137 


FIX 


= 6141 


LEN 


= 6144 


STR$ 


= 6147 


VAL 


= 6151 


ASC 


= 6154 


CHR$ 


= 6157 


LEFT$ 


= 6161 


RIGHT$ 


= 6166 


MID$ 


= 6172 







Matching BASIC Functions with ROM CALL Addresses: 

Now the decoding game becomes somewhat more 
interesting. Not difficult yet, because no tricl<y 
encipherment was used. We should remember that 
encoding costs memory and memory = money. One does 
not have to search very far in memory for the location of 
each BASIC function's CALL address. 

These addresses are split into two groups. The first 
group begins a few bytes after the end of the function 
name list at MEM location 6178 and runs through 6451l 
This group covers all functions from END through 'less 
than'. The second group begins at MEM location 5640 and 
runs through 5711. This group includes all BASIC 
functions from SGN through the end of the function list, 
MID$. 

With the exception of those BASIC functions from TAB 
to 'less than', all CALL locations are stored in MEM using 
the standard Zilog Z-80 format (the genius of Federico 
Faggin, Z-80 creator appears again), with the LSB (least 
significant byte) first, and the MSB (most significant byte) 
second, in the following memory location. Figure 3 
illustrates a little BASIC program that will display the 
BASIC function, an = sign, then the MEM location of the 
stored CALL address for this specific function and lastly 
the CALL address in standard TRS-80 "PEEK" format. 



Figure 3 

10 ' PROGRRM TO MRTCH BRSIC FUNlTIONS 

WITH CfiLL HDDRESSES 
15 •■ 
20 CLS ; PR I NT " FUNC:T=RDDRESS LSB-MSB 

FIINC:T=RDDRESS LSB-MSB 

25 fl=6176 : F0RX=5?12T0!S1?5 ; V=PEEK ■: X > : I FV> 
127THENV=V-i28 
3:0 Z=>^:+i:IFPEEK<Z)>127THENPRINTC:HR$(V).: " 

= ".iELS.EGiJTu45 

35 R=R+2:IFR=b3:52THENH=!5640 
40 PRINTR. PEEK •:H).i "-".PEEK cfi+l), GOTO50 
45 PRINTCHRtCT').. 
50 NEXT 



Figure 4 is a printout of those addresses whose 
LSB/MSB are directly translatable to CALL addresses. 
The other functions' CALL addresses are fully covered in 
Chapter 5. Figure 5 is a printout of Level II ROM MEM 
locations 1600H through 18FFH to illustrate how Level II 
ROM BASIC function CALL locations are determined. 



Figure 4 

Function=CALL Address MEM Location CALL-Address 



FUNCT 


= ADDRESS 


LSB-MS 


END 


= 67+8 Ctrif 


174 -29 


RESET 


= 6182 


56 - 1 


CLS 


= 6186 


201 - 1 


RANDOM 


= 6190 


211 - 1 


DATA 


= 6194 


5 -31 


DIM 


= 6198 


8 -38 


LET 


= 6202 


33 -31 


RUN 


= 6206 


163 -30 


RESTORE 


= 6210 


145 -29 


RETURN 


= 6214 


222 -30 


STOP 


= 6218 


169 -29 


TRON 


= 6222 


247 -29 


DEFSTR 


= 6226 


-30 


DEFSNG 


= 6230 


6 -30 


LINE 


= 6234 


163 -65 


ERROR 


= 6238 


244 -31 


OUT 


= 6242 


251 -42 


OPEN 


= 6246 


121 -65 


GET 


= 6250 


127 -65 


CLOSE 


= 6254 


133 -65 


MERGE 


= 6258 


139 -65 


KILL 


= 6262 


145 -65 


RSET 


= 6266 


154 -65 


SYSTEM 


= 6270 


178 - 2 


DEF 


= 6274 


91 -65 


PRINT 


= 6278 


111 -32 


LIST 


= 6282 


46 -43 


DELETE 


= 6286 


198 -43 


CLEAR 


= 6290 


122 -30 


CSAVE 


= 6294 


245 -43 


INT 


= 5642 


55 -11 


FRE 


= 5646 


212 -39 


POS 


= 5650 


245 -39 


RND 


= 5654 


201 -20 


EXP 


= 5658 


57 -20 


SIN 


= 5662 


71 -21 


ATN 


= 5666 


189 -21 


CVI 


= 5670 


82 -65 


CVD 


= 5674 


94 -65 


LOC 


= 5678 


100 -65 


MKI$ 


= 5682 


106 -65 


MKD$ 


= 5686 


112-65 


CSNG 


= 5690 


177 -10 


FIX 


= 5694 


38 -11 


STR$ 


= 5698 


54 -40 


ASC 


= 5702 


15 -42 


LEFT$ 


= 5706 


97 -42 


MID$ 


= 5710 


154 -42 



FUNCT 


= ADDRESS 


FOR 


= 6180 


SET 


= 6184 


CMD 


= 6188 


NEXT 


= 6192 


INPUT 


= 6196 


READ 


= 6200 


GOTO 


= 6204 


IF 


= 6208 


GOSUB 


= 6212 


REM 


= 6216 


ELSE 


= 6220 


TROFF 


= 6224 


DEFINT 


= 6228 


DEFDBL 


= 6232 


EDIT 


= 6236 


RESUME 


= 6240 


ON 


= 6244 


FIELD 


= 6248 


PUT 


= 6252 


LOAD 


= 6256 


NAME 


= 6260 


LSET 


= 6264 


SAVE 


= 6268 


LPRINT 


= 6272 


POKE 


= 6276 


CONT 


= 6280 


LLIST 


= 6284 


AUTO 


= 6288 


CLOAD 


= 6292 


NEW 


= 6296 


ABS 


= 56#^ 


INP 


= 5648 


SOR 


= 5652 


LOG 


= 5656 


COS 


= 5660 


TAN 


= 5664 


PEEK 


= 5668 


CVS 


= 5672 


EOF 


= 5676 


LOF 


= 5680 


MKS$ 


= 5684 


CINT 


= 5688 


CDBL 


= 5692 


LEN 


= 5696 


VAL 


= 5700 


CHR$ 


= 5704 


RIGHT$ 


= 5708 



LSB-MSB 
161 -28 
53 - 1 
115 -65 
182 -34 
154 -33 
239 -33 
194 -30 
57 -32 
177-30 

7-31 

7-31 
248 -29 

3-30 

9 -30 

96 -46 
175 -31 

108 -31 
1 24 -65 
130 -65 
136 -65 
142-65 
151 -65 
160 -65 
103 -32 
177 -44 
228 -29 

41 -43 

8 -32 
31 -44 
73 -27 

119 - 9 
239 -42 
231 -19 

9 - 8 
65 -21 

168 -21 

170 -44 

88 -65 

97 -65 
103 -65 

109 -65 
127 -10 
219 -10 

3 -42 

197 -42 

31 -42 

145 -42 



Figure 5 
Converting BASIC Function CALL Addresses to Hex and 





Decimal: 


1688 


ft mm7¥ mm m &i 8ft 09 27 ^ 7? 09 m 27 


■im 


EF 2fl F5 27 E7 12 C9 14 89 ^ 29 14 41 15 4? 15 


1628 


ft8 15 H) 15 ffi 2C 52 41 K 41 5E 41 61 41 64 41 


1620 


67 41 6ft 41 6D 41 78 41 7F 0fl Bl ^ m m 26 « 


m% 


82 2ft 26 28 C5 2ft ^ 2fl IF 2fi 61 2H 91 2H 9ft 2ft 


im 


f:5 4E 44 C6 4F b2 D2 45 52 45 54 D2 45 54 C2 4C 


1668 


52 C2 4D 44 D2 41 4E 44 4F 4D CE 45 58 ^4 C4 41 


1670 


54 41 CS € 58 55 54 CA 49 4D [)2 45 41 44 tt 45 


1^ 


54 07 4F 54 4F [)2 55 € C9 46 D2 45 52 54 4F 52 


1698 


45 C7 4F 52 ^5 42 D2 45 54 55 K 4E D2 45 40 02 


im 


54 € ^ 1:5 4C 52 45 m 52' 4F 4E 04 52 4F 46 46 


16B8 


C4 45 46 52 54 52 C4 45 46 49 € 54 C4 45 46 52 


ia» 


4E 47 C4 45 46 44 42 4C iX 49 4E 45 C5 44 49 M 


im 


C5 52 52 € 52 02 45 52 55 40 45 CF 55 54 Cf € 


im 


CF m 45 4E C:6 49 45 4C 44 C? 45 54 M 55 ^ C2 


16F0 


4f: € 52 45 iX € 41 44 Ct> 45 52 47 45 CE 41 40 


im 


45 Cli 49 C 4C Ci: 52 45 14 02 52 45 54 02 41 56 


1718 


45 02 59 52 t4 45 40 C€ 58 52 49 € 54 C:4 45 46 


1728 


re € 4B 45 [)0 52 49 4E 54 C2 4F € 54 X 49 52 


1728 


54 tt- 4C 49 52 M CA 45 C 45 54 45 CI 55 54 € 


1740 


C2 C 45 41 52 C2 4C € 41 44 C2 52 41 56 45 Cf 


1758 


45 57 [J4 41 42 28 04 4F C6 € 05 52 49 € 47 I^ 


1768 


41 52 ^ 54 52 05. 52 52 C5 52 4C C5 52 52 02 54 


1778 


52 49 4E 47 24 C9 € 52 54 52 W 4F 49 € 54 04 


1788 


49 40 45 24 CO 45 40 13 4E 48 45 59 24 04 48 45 


17^ 


€ CE 4F 54 02 54 45 58 H W> « ff [JB CI € 44 


im 


CF 52 E K) BC: 02 47 4E C9 4E 54 CI 42 52 C6 52 


17B8 


45 C9 4E ^ 08 4F 52 02 51 52 02 4E 44 CC € 47 


17C8 


C5 58 58 C2 4F 52 02 49 € 04 41 € Ci ^ € 08 


17D0 


45 45 « C2 % 49 C2 % 52 C2 K 44 C5 4F 46 CC 


17E8 


4F 42 it € 46 CO 4B 49 24 Ct» € 52 24 iD 4B 44 


i7F0 


24 C2 49 € 54 C2 52 4E 47 C2 44 42 4C C6 49 ^ 


1^ 


X 45 € 02 54 52 24 06 41 C CI 52 42 C2 48 52 


1810 


24 tt 45 46 M 24 D2 49 47 48 54 24 CO 49 44 24 


1820 


fl7 W E 10 ftl IC 28 01 25 81 m 81 72 41 02 81 


1828 


B6 22 K IF 9ft 21 « 26 EF 21 21 IF C2 IE fi2 IE 


1840 


29 ^ 91 10 Bl IE OE IE 87 IF ft9 10 87 IF F7 10 


im 


F8 10 m IE 82 IE « IE 09 IE fl2 41 68 2E F4 IF 


im 


ff IF FB 2ft 6C IF 79 41 7C 41 7F 41 82 41 85 41 


1871 


ffi 41 « 41 « 41 91 41 97 41 « 41 ffi 41 B2 82 


im 


67M»4iB12C6F20E4 1O2E2B292eC62B 


1898 


ffi ^ Tfl IE IF 2C F5 2B 49 IB 79 79 7C 7C 7F M 


1^ 


46ilWWW7F«F4WBia77«:70«:fti 


im 


a) E5 i) 78 » 16 07 12 07 47 ^ 82 ^ tt « 02 


im 


« C7 « F2 « » 24 29 W € 46 52 4E 52 47 € 


im 


44 46 42 € 5^ 4F 40 55 4C 42 52 44 44 2F 28 49 


im 


44 54 40 € 52 C 52 52 54 42 € € 52 52 57 55 


iW% 


45#€€44€22W«6F7C!IW67 78II 



im 




7 


/ 


1610 


* ' . 9 ft G 


1628 


. R ft X ft '• ft ft ft 


1620 


ft ft ft , ft 4 . 


1640 


*6(** * ** * 


1650 


NO R E S E T . E T L 


1660 


S MO ft N fi . E X T ft 


1670 


T ft N P U T I M E ft E 


im 


T T UN F E S T R 


im 


E . S U B . E T ij R N EH 


im 


TOP LSE RON ROFF 


im 


E F S T R E F I N T . E F S 


16C0 


M 6 E F B I I N E I T 


16W 


R R R . E S LI M E . Li T N 


16E0 


PEN. I E L E T U T 


16F0 


LOSE ft . E R G E , ft « 


1700 


E ILL SET SET ft V 


1710 


E V S T E M P R I N T E F 


1720 


K E . R I N T N T I S 


1720 


T LIST E L E T E U T 


1740 


L E ft R L ft S ft V E 


1758 


E W ft B ( . N . SING, 


1760 


ftRPTR. SR RL RR. T 


1770 


RING! H S T R . I N T 


1780 


I H E $ E H N K E V 1 . H E 


1790 


N T T E P . NO 


1780 


. R . . 6 N N T B S R 


17B8 


E . N P S , Q R N G 


i7C0 


XP.OSIN ftHTN 


1700 


E E K V I V S . V F . 


17E0 


C OF i( I $ K S 1 K 


17F0 


^ ^ INT. S N G . B L . IX 


im 


E M . T R 1 ft L S C H R 


1810 


1 E F T $ I 6 H T $ I $ 


1828 


- 8 5 ft . . 


1820 


"'.*.''. 




1840 


9 




1^ 




ft 

ft ft 




im 


. . * ft ft 


fi 


1870 


. ft . ft ft . ft . ft 


ft ft 




1^ 


C ft .. 


^ ) 4 


4 


18% 


.. , . 4- I 




p 


im 


F 






im 


6 






im 


1 9 . N F S N R 6 


im 


F C V H IJ L B S / I 


im 


T H S L S S T C N N R R H U 


im 


E H F L 2 







Converting the BASIC function CALL addresses 
printed out in Figure 4 to hexadecimal and decimal is 
certainly simple, but nevertheless a tedious job whether 
done with a calculator or using Disk BASIC'S &H function. 
There is a considerably easier way to do it. 

The Multi-Base Number Conversion Program presen- 
ted in Chapter 6 makes the conversion of the CALL loca- 
tions to hexadecimal and decimal a real pleasure instead 
of a rote chore. This program may be easily modified to 
take the LSB and MSB from Figure 3's program output 
and automatically generate the CALL'S decimal and 
hexadecimal location, but for simplicity's sake let's run 
through Chapter 6's standard number conversion routine 
for generating the CALL address for the first function 
shown in Figure 4, which is END. 

Load the conversion program. We will use the 
program's SPLIT DECIMAL TO DECIMAL routine so 
press 'SP' ENTER. Figure 4 shows that END'S CALL 
location is LSB = 174 and MSB = 29. The program will 
display "DECIMAL?". Press 174 then ENTER. After a 
moment, the 174 will disappear and "DECIMAL?" will 



again be displayed on video. Now, press 29 then ENTER. 
Faster than a speeding bullet, HEXADECIMAL 1 DAE will 
be displayed on video followed by DECIMAL 7598 a 
second or two later. Aha, it really does work. 

The conversion program's logic and flow is as follows: 

1. Convert '174' to hexadecimal and store it. 

2. Convert '29' to hexadecimal and store it. 

3. Reverse the two hexadecimal numbers so it will 
read MSB/LSB. 

4. Display the hexadecimal number on video. 

5. Convert the hexadecimal number to decimal. 

6. Display the decimal number on video. 

Figure 6 is an exact printout of Figure 4's BASIC 
function CALL addresses in both hexadecimal and 
decimal. Those CALL addresses above 12288 are of 
course for coupling to DOS/Disk. So far, so good. Now 
let's JP to Chapter 2 and get some experience using Level 
II ROM's subroutines with integer, single precision, and 
double precision arithmetic. Wewill initially only bedoing 
3rd grade add, subtract, multiply, and divide, but we will 
be doing it with only a few CALLs instead of lines/pages of 
assembly language programming. 



Figure 6 



FUNCTION 


HEX 


END 


1DAE 


RESET 


0138 


CLS 


01 09 


RANDOM 


01 D3 


DATA 


1F05 


DIM 


2608 


LET 


1F21 


RUN 


1EA3 


RESTORE 


1D91 


RETURN 


1EDE 


STOP 


1DA9 


TRON 


1DF7 


DEFSTR 


1E00 


DEFSNG 


1E06 


LINE 


41 A3 


ERROR 


1FF4 


OUT 


2AFB 


OPEN 


4179 


GET 


417F 


CLOSE 


4185 


MERGE 


418B 


KILL 


4191 


RSET 


41 9A 


SYSTEM 


02B2 


DEF 


415B 


PRINT 


206F 


LIST 


2B2E 


DELETE 


2BC6 


CLEAR 


1E7A 


CSAVE 


2BF5 


INT 


0B37 


FRE 


27 D4 


POS 


27 F5 


RND 


1409 


EXP 


1439 


SIN 


1547 


ATN 


15BD 


CVI 


4152 


CVD 


415E 


LOC 


4164 


MKI$ 


41 6A 


MKD$ 


4170 


CSNG 


0AB1 


FIX 


0B26 


STR$ 


2836 


ASC 


2A0F 


LEFT$ 


2A61 


MID$ 


2A0A 



DECIMAL 

7598 

312 

457 

467 

7941 

9736 

7969 

7843 

7569 

7902 

7593 

7671 

7680 

7686 

16803 

8180 

11003 

16761 

16767 

16773 

16779 

16785 

16794 

690 

16731 

8303 

11054 

11206 

7802 

11253 

2871 

10196 

10229 

5321 

5177 

5447 

5565 

16722 

16734 

16740 

16746 

16752 

2737 

2854 

10294 

10767 

10849 

10906 



FUNCTION 

FOR 

SET 

CMD 

NEXT 

INPUT 

READ 

GOTO 

IF 

GOSUB 

REM 

ELSE 

TROFF 

DEFINT 

DEFDBL 

EDIT 

RESUME 

ON 

FIELD 

PUT 

LOAD 

NAME 

LSET 

SAVE 

LPRINT 

POKE 

CONT 

LLIST 

AUTO 

CLOAD 

NEW 

ABS 

INP 

SQR 

LOG 

COS 

TAN 

PEEK 

CVS 

EOF 

LOF 

MKS$ 

CINT 

CDBL 

LEN 

VAL 

CHR$ 

RIGHTS 



HEX 

1CA1 

0135 

4173 

22B6 

219A 

21EF 

1EC2 

2039 

1EB1 

1F07 

1F07 

1DF8 

1E03 

1E09 

2E60 

1FAF 

1F6C 

4170 

4182 

4188 

418E 

4197 

41 AO 

2067 

2CB1 

1DE4 

2B29 

2008 

201 F 

1B49 

0977 

2AEF 

13E7 

0809 

1541 

15A8 

2CAA 

4158 

4161 

4167 

416D 

0A7F 

OADB 

2A03 

2AC5 

2A1F 

2A91 



DECIMAL 

7329 

309 

16755 

8886 

8602 

8687 

7874 

8249 

7857 

7943 

7943 

7672 

7683 

7689 

11872 

8111 

8044 

16764 

16770 

16776 

16782 

16791 

16800 

8295 

11441 

7652 

11049 

8200 

11295 

6985 

2423 

10991 

5095 

2057 

5441 

5544 

11434 

16728 

16737 

16743 

16749 

2687 

2779 

10755 

10949 

10783 

10897 




■•!■ ?'i 
t_:J 




\m 









Integer, Single, and Double 
Precision Arithmetic 



Introduction: 

After one has recovered from the shock of learning the 
fundamentals of assembly language programming it is 
ridiculous to "reinvent the wheel" by writing dozens of 
lines or pages of source code to perform simple single and 
double precision arithmetic calculations when these 
routines already exist in Level II ROM and may be 
accessed with a single call. 

Assembly language programming with its resulting 
source code programs running 300+ times faster than 
BASIC and requiring on the average only 1/1 0th as much 
memory to perform the same functions as BASIC is very 
helpful for the serious amateur programmer who wishes 
to advance beyond the inherent limitations of BASIC, 
FORTRAN, COBOL, PASCAL or any of the high level 
computer languages. Prior to this book, assembly 
language programmers were forced to learn by rote those 
assembly language subroutines for ALL the functions that 
were already extant in the Level II ROM because no one 
had ever figured out exactly how to access all these 
subroutines; i.e., break the beautifully "TIGHT CODE" 
code written by Microsoft's Paul Allen and Bill Gates. 

Assembly language programmers arise! The Level II 
ROM code has now been broken. As every cryptographer 
knows, every lock has a key. It is just that some locks take 
a bit longer to pick than others, (ask N.S.A. or Ml. 5 about 
this). For some perverse reason, (probably money and the 
Chinese secrecy syndrome), neither Radio Shack or 
Microsoft have been willing to come forward and tell the 
200,000+ TRS-80 users how to use the myriad Level II 
ROM subroutines in assembly language programs. This 
point is best illustrated by Radio Shack's book, "TRS-80 
Assembly Language Programming," introduced in mid- 
1979 which leads the would-be assembly language 
programmer into T-Bug (surely the height of backward- 
ness/retrogression), and then goes on with multiline 
demonstration programs covering keyboard scan, video 
display, fill, move, muladd, mulsub, compare, mul16, 
div16, etc. that could be accomplished with only a few 
lines of assembly language programming IF the extant 
Level II ROM subroutines had been used. If you have 
mastered Level II BASIC, you should have great fun with 
this totally NEW approach to assembly language 
programming. By mastering Level II BASIC you have 
demonstrated that you have the skills and persistence to 
become an advanced assembly language programmer 
with only a few weeks study rather than what heretofore 
took many months or years. The supposed "experts" in 
the field of assembly language programming have 
created an aura and mystique about the subject which is 
totally undeserved and seeks only to promote their own 
self esteem. Let us take a brief look at how very simple 
assembly language programming can be by illustrating 
our point with a few simple arithmetic programs that 
almost exclusively use Level II ROM subroutines. 

Fundamentals of Level II ROM Arithmetic: 

ROM arithmetic subroutines are virtually identical to 
those you would HAVE to write were they not NOW 
available to the assembly language programmer. This is 
true whether we are discussing integer, single precision, 
double precision, addition, subtraction, multiplication, 
division, as well as ALL the trigonometric, exponential, 
and log functions too. In fact, it is true for all Level II ROM 
functions which are nothing more than binary bytes we 
may manipulate as long as we know where they are 
located. Let's get on with the primer for + - * and /. 



ROM (read-only-memory) means just what it says, 
READ-ONLY. Since it may be only read from. Level II 
ROM uses the RAM memory from 14302 to 17129for all its 
housekeeping chores. The keyboard, from 1 4336 to 1 5360 
is not really RAM at all, but a simple key/switch matrix 
which the rest of the system thinks is RAM. Video memory 
occupies memory locations 15360 to 16383. Except for 
memory locations 14302 to 14336, all the non-disk Level II 
RAM housekeeping chores are done between 16384 and 
17129. Three RAM memory locations are of particular 
interest while discussing arithmetic + - * / subroutines. 
They are the ACCUMulator, CDBL store (or "OS" 
abbreviation), and NT (number type). Arithmetic numbers 
stashed in RAM use the following conventions: integer = 
LSB first and MSB second using two's complement 
format, and single and double precision numbers = 
normalized exponential format with 129 added to the 
exponent and the high bit of the MSB reflecting the + or- 
sign of the number. Do not concern yourself with these 
number formats as our Level II ROM will handle all the 
conversions necessary if we use them properly. The 
ACCUM occupies memory locations 411DH through 
4124H (8 bytes) and CDBL store occupies4127H through 
412EH, also 8 bytes. We must concern ourselves with NT 
(number type) as it will "blow" our whole subroutine if we 
try to perform arithmetic operations with dissimilar 
number types; i.e., add an integer to a double precision 
number, etc. Do not fret though, ROM lets us use its CINT, 
CSGN, CDBL functions with only a single CALL to make 
the numbers we are using compatible. 

CINT = CALL 0A7FH CSNG = CALL 0AB1H CDBL = 
CALLOADBH 

The 3 programs in this chapter provide these functions 
in each routine, so it takes real effortto foul them up if you 
abide by each number type's minimal rules. 

The NT (number type) single byte storage in RAM is 
located at40AFH. NT (40AFH) =2foran integer number, = 
3 for a string, =4 for a single precision number, and =8 for 
a double precision number. To change these numbers to 
ASCII and display them on video, simply ADD 30H to the 
contents of MEM location 40AFH and output to the video 
display as follows: 

LD A,(40AFH) ;NT location 

ADD A,30H ;convert to ASCII 

CALL 032AH ;display on video 

Integer Arithmetic + - * / : 

Figure 7 is the demonstration program that will allow 
you to add, subtract, multiply, or divide integers strictly 
using the ROM subroutines. Fast? You bet it is. As soon as 
you press ENTER you'll have the answer. Remember, 
your Model I TRS-80 with its clock running at 
approximately 1,774,000 cycles per second is no 
slowpoke. Instead of BASIC'S "slowsville", you are now 
conversing with your Z-80 microprocessor directly, IN 
ITS OWN LANGUAGE. With no interpreter (BASIC) 
required, it will zap along at what appears to be the speed 
of light. All this integer program does is to place the first 
number you input into the DE register, the second number 
you input into the HL register, and then CALLwhatever+- 
V operation you requested. This simple program is 
completely straightforward except for Iine330's PUSH HL 
and line 4O0's POP DE. The stack begins at RAM memory 
location 4288H when operating in the SYSTEM mode. 
What we are doing here is "saving" the first integer 
number in the stack by PUSHing HL in line 330. The 
program then uses the HL register in obtaining the second 
number you input in line 340. The POP DE in line 400 
merely takes the previous HL value from the stack and 
places it into the DE register. The stack couldn't care less 
where its contents go as it is just a sophisticated FILO 

10 



(first-in-last-out) memory created and controlled by your 
Z-80/ROM (unless you choose to modify its location with 
the LD SP (stack pointer) opcode and operand 
instruction. Remember, integer arithmetic is nothing 
more than placing the 'F'irst number in the DE register, 
the 'S'econd number in the HL register, and specifying 
which +-*/ operation you desire with the following 
CALLS: 

ADD CALL 0BD2H SUBTRACT = CALL 0BD7H 

MULTIPLY = CALL 0BF2H DIVIDE = CALL 2490H 

The result of any of these operations is always placed in 
the ACCUM. To display the result on video, merely: 

CALL OFBDH ;convert ACCUM to ASCII 

string 
CALL 28A7H ;display ASCII string on 

video 

That is all there is to it. Simplesville personified. 

Single Precision Arithmetic + - * / : 

This is very similar to integer arithmetic, except ROM 
now wants the 'F'irst number in registers BC and DE, and 
the 'S'econd number in the ACCUM. The desired 
operation is performed by: 

ADD rCALL0716H SUBTRACT = CALL 0713H 

MULTIPLY =CALL0847H DIVIDE = CALL 08A2H 



For memory storage, we again use the stack as shown in 
lines 340 and 350 PUSH instructions, and lines 420 and 
430 POP same. Figures 9 and 10 are the source code and 
object code for the single precision arithmetic 
demonstration program. 



Double Precision Arithmetic + - * / : 

Is not significantly different from either integer or single 
precision arithmetic subroutines, except now ROM wants 
the 'F'irst number in the ACCUM and the 'S'econd 
number in the CDBL store RAM location. Desired 
operation is performed by: 

ADD = CALL 077CH SUBTRACT = CALL 0C70H 

MULTIPLY = CALL 0DA1HDIVIDE = CALL 0DE5H 

Figures 11 and 12 are the source and object code for the 
double precision arithmetic demonstration program. 

Summary: 

Each of these source code programs may be input by 
the user in about 5 minutes time using the EXCELLENT 
Radio Shack Editor/ Assembler that was written by Zilog's 
President and in-house-genius, Federico Faggin, and his 
staff. Previous assembly language teaching programs 
required months of study and page upon page of source 
code to accomplish all the double precision arithmetic 
routines. Now the average TRS-80 buff can master the 
subject in a matter of hours. 





Figure 7 Source Code 


Figure 8 Object 


3ode 




00100 .1 


INTEGER RRITHMETIC DEMONSTRATION PROGRfiM 




001:10 










00120 .; 


USING 


LEVEL II ROH SUBROUTINES ■*■ - * / 




06130 








7D00 


00140 W4UCH 


EQU 


7D00H i 


= 32000 DECIMfiL 


7D8e 


00150 


ORG 


W4UCH .; 


PROGRfiM WILL START HERE 


7D00 3:E4F 


00160 BEGIN 


LD 


ft, 4FH ; 


"0" OPERATION DESIRED 


7D02 C:D2R0:< 


00170 


CftLL 


032AH 


DISPLRV "0" ON VIDEO 


7D05 3:E3F 


00180 


LD 


fl. 3FH 


= ASCII ? 


7D07 C:D2ft03: 


00190 


CfiLL 


032ftH 


DO IT - ON VIDEO 


7D0fi 3:E20 


00200 


LD 


A.. 20H 


= ASCII SPACE 


7D0C i::D2fi03: 


00210 


CfiLL 


032fiH 


DO IT - ON VIDEO 


7D0F C:D4900 


00220 


CRLL 


049H 


KVBD INPUT + " * / 


7D12 CD2Fi03: 


00230 


CfiLL 


032AH 


DISPLfiV FUNCTION 


7D:t5 3:27B7D 


00240 


LD 


(FUNCT),. fi 


STASH DESIRED OPERATION 


7D18 3E0D 


00250 


LD 


fi. 0DH 


0DH = SKIP A LINE 


7D1R C.D2ft03: 


00260 


CALL 


032fiH 


DO IT - ON VIDEO 


7D1D 3E46 


00270 


LD 


A.. 46H 


"F" = FIRST NUMBER 


7D1F CD2ft03: 


00280 


CfiLL 


032AH 


DO IT - ON VIDEO 


7D22 CDB3:lB 


00290 


CALL 


1BB3H 


KVBD/VIDEO INPUT ROUTINE 


7D25 D7 


00300 


RST 


10H 


SCAN $ SET C FLAG 


7D26 CD6C0E 


00310 


CfiLL 


0E6CH 


ifiSCII-flCCUM RET MIN 


7D29 CD7F0fl 


00320 


CALL 


0fl7FH 


J CONVERT TO INTEGER 


7D2C E5 


00330 


PUSH 


HL 


:SfiVE INTEGER IN STfiCK 


7D2D 3:E53 


00340 


LD 


fi.. 53H 


; "S" = SECOND NUMBER 


7D2F CD2fl03 


00350 


CfiLL 


032AH ■ 


: DISPLfiV "S" ON VIDEO 


7D32 CDB21B 


00360 


CALL 


1BB3H 


; KVBD/VIDEO INPUT ROUTINE 


7D35 D7 


00370 


RST 


10H 


: SCAN $ SET C FLftG 


7D36 CD6C0E 


00380 


CfiLL 


0E6CH 


^ ASCII TO ACCUM RET MIN 


7D39 CD7F0fi 


00390 


CALL 


0fl7FH 


.: CONVERT TO INTEGER 


7D3C Dl 


00400 


POP 


DE 


i PREVIOUS HL TO DE REG 


7D3D 3fl7B7D 


00410 


LD 


fl, (FUNCT) 


: RECALL + - * / FROM MEM 


7D40 FE2B 


00420 


CP 


2BH 


: IS IT + ? 


7D42 2823 


00430 


JR 


2. ADD 


; IF SO GOTO ADD 


7D44 FE2D 


00440 


CP 


2DH 


i IS IT - ? 
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7D46 2824 


00450 




JR 


Z, SUB 


7D48 VE2fl 


00460 




CP 


2flH 


7D4R 2825 


00470 




JR 


2.. MULT 


7D4C: FE2F 


00480 




CP 


2FH 


7D4E 2826 


00490 




JR 


Z, DIVIDE 


7D50 3:E3D 


00500 


VIDEO 


I.D 


R, 3:DH 


7D52 CD2R03: 


00510 




CRLL 


0j:2flH 


7D55 3E20 


00520 




ID 


R.. 20H 


7D57 C:D2fl0i 


0051:0 




CRLL 


0j:2RH 


7D5fi CDBD0F 


00540 




CRLL 


0FBDH 


7D5D CDR728 


00550 




CfllJ. 


28fl7H 


7DS50 3:E0D 


00560 




LD 


fl.. 0DH 


7D62 CD2fl03 


00570 




CALL 


03:2RH 


7Db5 1899 


00580 




JR 


BEGIN 


7D€.7 i::DD20B 


00590 


fiDD 


CRLL 


0BD2H 


7D6H 18E4 


00600 




JR 


VIDEO 


7D6i:: CDC70B 


00610 


SUB 


CRLL 


0BC7H 


7D6F 18DF 


00620 




JR 


VIDEO 


7D71 C:DF20B 


00630 


MULT 


CRLL 


0BF2H 


7D74 18Dfi 


00640 




JR 


VIDEO 


7D76 CD9024 


00650 


DIVIDE 


CRLL 


2490H 



IF SO GOTO SUBTRACT 

IS IT * ■^■ 

IF SO GOTO MULTIPLY 

IS IT / ■■' 

IF SO GOTO DIVIDE 

im IS ASCII = SIGN 

DO IT - ON VIDEO 

=flSCn SPACE 

DO IT - ON VIDEO 

CONV HCCUM TO STRING 

DISPLAV STRING ON VIDEO 

= SKIP fl LINE 

DO IT - ON VIDEO 

REPERT ROUTINE 

ADD DE + HL 

OUTPUT RESLILT 

SUBTRACT DE - HL 

OUTPUT RESULT 

MULT I PL V DE * HL 

OUTPUT RESULT 

DIVIDE DE .••■■ HL 



Figure 9 



Figure 10 





00100 .i 


SINGLE 


PRECISION ARITHMETIC DEMONSTRATION PROGRAM 




00110 










00120 .; 


USING 


LEVEL 11 ROM SUBROUTINES + - * / BV W4UCH 




00130 








7D00 


00140 W4UCH 


EQU 


7D00H 


= 32000 DECIMAL 


7D00 


00150 


ORG 


W4UCH 


PROGRAM WILL START HERE 


7D00 3:E4F 


00160 BEGIN 


LD 


A. 4FH 


i "0" OPERATION DESIRED 


7D02 CD2R03: 


00170 


CRLL 


032AH 


i DISPLAV "0" ON VIDEO 


7D05 3:E5:F 


00180 


LD 


A.. 3FH 


.= ASCII -^ 


7D07 CD2R03: 


00190 


CALL 


032AH 


■DO IT - ON VIDEO 


7D0fl 3:E20 


00200 


LD 


A, 20H 


;= ASCII SPACE 


7D0C CD2R03: 


00210 


CALL 


032AH 


.DO IT - ON VIDEO 


7D0F CD4900 


00220 


CRLL 


049H 


KVBD INPUT + - * / 


7Di2 CD2R03 


00230 


CALL 


032AH 


DISPLAV FUNCTION 


7D15 3:2807D 


00240 


LD 


<FUNCT),A 


STASH DESIRED OPERATION 


7D18 3:E0D 


00250 


LD 


A.. 0DH 


;0DH = SKIP fl LINE 


7Dlfi CD2fl03: 


00260 


CALL 


032AH 


DO IT - ON VIDEO 


7DiD 3E46 


00270 


LD 


a46H 


; "F" = FIRST NUMBER 


7DiF CD2A03: 


00280 


CALL 


032AH 


;D0 IT - ON VIDEO 


7D22 CDB3:lB 


00290 


CALL 


1BB3H 


;KVBDA'IDEO INPUT ROUTINE 


7D25 D7 


00300 


RST 


10H 


; SCAN * SET C FLAG 


7D26 CD6C0E 


00310 


CALL 


0E6CH 


ASCII-ACCUM RET MIN 


7D29 CDB10A 


00320 


CALL 


0AB1H 


iCONV SINGLE PRECISION 


7D2C CDBF09 


00330 


CALL 


09BFH 


. LOAD BCDE FROM ACCUM 


7D2F C5 


00340 


PUSH 


BC 


STORE IN STACK 


7DK0 D5 


00350 


PUSH 


DE 


STORE IN STACK 


7D31 3E53: 


00360 


LD 


A, 53H 


"S" = SECOND NUMBER 


7D33 CD2R03 


00370 


CALL 


032RH 


DISPLAV "S" ON VIDEO 


7D36 CDB31B 


00380 


CALL 


1BB3H 


KVBD/VIDEO INPUT ROUTINE 


7D39 D7 


00390 


RST 


10H 


SCAN $ SET C FLAG 


7D3fl CD6C0E 


00400 


CRLL 


0E6CH 


ASCII TO ACCUM RET MIN 


7D3D CDB10A 


00410 


CALL 


0flBlH 


CONV TO SINGLE PRECISION 


7D40 Dl 


00420 


POP 


DE 


RESTORE DE REGISTER 


7D41 C:l 


00430 


POP 


BC 


RESTORE BC REGISTER 


7D42 3fl807D 


00440 


LD 


fl. <FUNCT) 


RECALL + - * / FROM MEM 


7D45 FE2B 


00450 


CP 


2BH 


IS IT + ? 
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7D47 


2823 


00460 




JR 


Z, ADD 


; IF SO GOTO ADD 


7D49 


FE2D 


00470 




CP 


2DH 


.i IS IT - ? 


7D4B 


2824 


00480 




JR 


Z.. SUB 


.; IF SO GOTO SLIBTRRCT 


7D4D 


FE2R 


00490 




CP 


2RH 


,i IS IT * ? 


7D4F 


2825 


00500 




JR 


Z, MULT 


; IF SO GOTO MULTIPLY 


7D5;l 


FE2F 


00510 




CP 


2FH 


J IS IT / ■> 


7D53 


2826 


00520 




JR 


Z. DIVIDE 


:. IF SO GOTO DIVIDE 


7D55 


:c:<D 


0053:0 


VIDEO 


LD 


R. 3DH 


i3DH IS RSCII = SIGN 


7D57 


CD2fl03 


00540 




CALL 


032RH 


;D0 IT - ON VIDEO 


7D5fl 


:<E20 


00550 




LD 


R, 20H 


:=RSCII SPRCE 


7D5C 


i::D2fl05: 


00560 




CRLL 


032RH 


iDO IT - ON VIDEO 


7D5F 


i::DBD0F 


00570 




CRLL 


0FBDH 


.;CONV RCCUM TO STRING 


7D62 


CDR728 


00580 




CRLL 


28R7H 


iDISPLRV STRING ON VIDEO 


7D65 


3E0D 


00590 




LD 


R.. 0DH 


.:= SKIP R LINE 


7D67 


CD2R03 


00600 




CRLL 


032RH 


;D0 IT - ON VIDEO 


7D6fl 


1894 


00610 




JR 


BEGIN 


.:REPERT ROUTINE 


7D6i:: 


i::D1607 


00620 


RDD 


CRLL 


0716H 


.:RDD BCDE REGS TO RCCUM 


7DbF 


1SE4 


00630 




JR 


VIDEO 


.; OUTPUT RESULT 


7D71 


CD1307 


00640 


SUB 


CRLL 


0713H 


:SUB RCCUM FM BCDE REGS 


7D74 


18DF 


00650 




JR 


VIDEO 


.; OLITPUT RESULT 


7D7€. 


CD4708 


00660 


MULT 


CRLL 


0847H 


;MULT RCCUM * BCDE REGS 


7D79 


•i8DR 


00670 




JR 


VIDEO 


; OLITPUT RESULT 


7D7B 


C.DR208 


00680 


DIVIDE 


CRLL 


08R2H 


;DIV RCCCUM INTO BCDE 


7D7E 


18D5 


00690 




JR 


VIDEO 


; OUTPUT RESULT 


7D80 


00 


00700 


FLINCT 


DEFB 





iSRVE BVTE-STRSH FUNCTION 


7D00 




00710 




END 


W4UCH 


.:EI FIN = EL PRIMERO 


&mm TCiTflL 


ERRORS 










RDD 


7D6C 


00620 


00460 








BEGIN 7D00 


00160 


00610 








DIVIDE 7D7B 


00680 


00520 








FUNCT 


7D80 


00700 


00240 


00440 






MULT 


7D76 


00660 


00500 








SUB 


7D71. 


00640 


00480 








VIDEO 7D55 


00530 


00630 


00650 006 


70 00690 




W4UCH 7D00 


00140 


00150 


00710 







Figure 11 



Figure 12 



7D00 
7D00 
7D00 
7D02 
7D05 
7D07 
7D0R 
7D0C 
7D0F 
7D12 
7D15 
7D18 
7Dlfl 
7D1D 
7D1F 
7D22 
7D25 
7D26 



3E4F 

CD2R03 

3E3F 

CD2fi03 

3E20 

CD2R03 

CD4900 

CD2R03 

328C7D 

3E0D 

CD2R03 

3E46 

CD2R03 

CDB31B 

D7 

CD650E 



00100 .; 

00110 
00120 .: 

00130 

00140 W4UCH 

00150 

00160 BEGIN 

00170 
00180 
00190 
00200 
00210 
00220 

00230 
00240 
00250 
00260 
00270 
00280 
00290 

00300 
00310 



DOUBLE PRECISION DEMONSTRRTION PROGRRM 

USING LEVEL II ROM SUBROUTINES + - * /' 

EQU 7D00H .;= 32000 DECIMRL 

ORG W4UCH i PROGRRM WILL STRRT HERE 

LD R..4FH .; "0" OPERRT I ON DESIRED 

CRLL 032RH ; DISPLRV "0" ON VIDEO 

LD a3FH := RSCII ■' 

CRLL 032RH .; DO IT - ON VIDEO 

LD R. 20H ,:= RSCII SPRCE 

CRLL 032RH j DO IT - ON VIDEO 

CRLL 049H iKVBD INPUT + - * / 

CRLL 032RH jDISPLRV FUNCTION 

LD (FUNCT). R ; STRSH DESIRED OPERRTION 

LD R,0DH ;0DH = SKIP R LINE 

CRLL 032RH .; DO IT - ON VIDEO 

LD R, 46H J "F" = FIRST NUMBER 

CALL 032AH ,: DO IT - ON VIDEO 

CRLL 1BB3H .:KVBD/VIDEO INPUT ROUTINE 

RST i0H .;SCflN $ SET C FLRG 

CRLL 0E65H .; RSCII* TO RCCUM RET CDBL 
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7029 111D41 


M320 




LD 


C€. 4iiWH 


7D2C 218D7D 


88330 




LD 


H_. TfCCLW 


702F 0608 


00340 




LD 


8,8 


7D31 CDO709 


00350 




CRLL 


09D7H 


7D34 3E53 


M360 




LD 


fl,53H 


7D36 CD2ft03 


00370 




CRLL 


032fW 


7D39 CDB31B 


M380 




CFM.L 


ire3H 


7D3C D7 


00390 




RST 


10H 


7D3D CD650E 


00400 




CW.L 


0E65H 


7D40 CDFC09 


00410 




CRLL 


09FCH 


7D43 118D7D 


00420 




LD 


DE, TRCCUH 


7D46 211D41 


00430 




LD 


HL, 411DH 


7D49 0608 


00440 




LD 


B, 8 


7D4B CDD709 


00450 




CRLL 


09D7H 


7D4E 3fl8C7D 


00460 




LD 


R, "T FUNCT) 


7D51 FE2B 


00470 




CP 


2BH 


7D5:< 2822 


00480 




JR 


Z.RDD 


7D55 FE2D 


00490 




CP 


2DH 


7D57 2824 


00500 




JR 


Z, SUB 


7D59 FE2fl 


00510 




CP 


2RH 


7D5B 2R25 


00520 




JR 


Z.. MULT 


7D5D FE2F 


00530 




CP 


2FH 


7D5F 2826 


00540 




JR 


Z.DIVIDE 


7D€.l i;E3D 


00550 


VIDEO 


LD 


R. 3DH 


7D63 CD2R0i 


00560 




CRLl 


032RH 


7D66 3E20 


00570 




LD 


R, 20H 


7t>fS r;D2R0i 


00580 




CRLL 


03:2RH 


7D6B CDBD0F 


08590 




CRLL 


0FBDH 


7D6E CDR72y 


00600 




CRLl 


28R7H 


7D71 3E0D 


00610 




LD 


R. hDH 


7D73 CD2H0-: 


00620 




CRLL 


032HH 


7D76 ism 


006"C0 




JR 


BEGIN 


7D78 CD770C 


00640 


RDO 


CRLL. 


0C77H 


7D7B 1SE4 


00650 




IP 


VIDEO 


7D7D CD 7001' 


d(df'G^ 


SUB 


CRLl 


MC7kiH 


7D80 18DF 


00670 




JP 


VIDEO 


7DS2 CDR10D 


00680 


Mill T 


CRLL 


0DR1H 


7D85 18DH 


00690 




JP 


VIDEO 


7D87 CDE50D 


00700 


DIVIDE 


CRLL 


0DE5H 


7D8R 1SD5 


00710 




JP 


VIDEO 


7D8C 00 


00720 


FUNCT 


DEFB 





0008 


00730 


TRCCUn 


DEFS 


8 


7D«i 


00740 




END 


I.I4UCH 


00000 TCiTRL 


ERRORS 








RDD 7D78 


00640 


00480 






BEGIN 7D00 


00160 


00630 






DIVIDE 7D87 


m7m 


00540 






FUNCT 7D8C 


00720 


00240 


30460 




MULT 7D82 


00680 


00520 






SUB 7D7D 


00660 


00500 






TRCCIIM 7D8D 


00730 


00330 


90420 




VIDEO 7D61 


00550 


00650 


00670 00690 00710 


W4UCH 7D00 


00140 


00150 


00740 




7D79 18D5 


00660 




JR 


VIDEO 


7D7B 00 


00670 


FUNCT 


DEFB 





7DM 


00680 




END 


W4UCH 


M000 TOTAL 


ERRORS 








fDD 7D67 


00590 


00430 






KG IN 7D00 


M160 


00580 






DIVIDE 7D76 


00650 


00490 






FLtCT 7D7B 


00670 


00240 


00410 




W.LT 7D71 


TO630 


TO470 






Sm 7D6C 


00610 


M450 






VIC€0 7D50 


00500 


^^^00 


00620 


^40 00660 


W4LCH 7DM 


00140 


m±m 


0^80 





; TO TEWWftRV fCCLM STf»l 
; MJ^R (F BYTES TO W}VE 
;MOVE IT - Sl^WXJTIfC 
i "S" = SECOW) m^^R 
;DISPLftV "S" m VI[«0 
jKVBO/VIDEO IfFUT R(UTIf€ 
iSCm S SET C FLRG 
; ASCII* TO mem RET CDBL 
; TRANSFER ACCUM TO CDBL 
J HOVE ACCUM FROM STASH TO 
; PERMANENT RAM LOCATION 
;NL»MBER OF BVTES TO MOVE 

MOVE IT - RIGHT NOW 

RECALL + - * / FROM MEM 

IS IT + ? 

IF SO GOTO ADD 

IS IT - '-i' 

IF SO GOTO SUBTRACT 

IS IT * ? 

IF' SO GOTO MULTIPLY 

IS IT / ^' 

IF SO GOTO DIVIDE 

3:DH IS ASCII = SIGN 

DO IT - ON VIDEO 

=RSCII SPRCE 

DO IT - ON VIDEO 

CONV RCCUM TO STRING 

DIspl RV STRING ON VIDEO 

= SKIP R LINE 

DO IT - ON VIDEO 

REPERT ROUTINE 

HDD RfCIIM TCI f:DBl 

OUTPUT RESIIIJ 

SUB riJBI. FROM RCCUM 

OLITPUT RESUL T 

MULT RCCUM * CDBl 

OUTPUT RESULT 

DIV RCCriJM BY CDBL 

OUTPUT RESULT 

SRVE BYTE-STRSH FUNCTION 

TEMPORRRY RCCUM STRSH 

RMRTEUR RRDIO CRLL LTRS 



; OUTPUT RESULT 

iSRVE BYTE-STRSH FUNCTION 

i AMATEUR RADIO CALL LTRS 
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(notes from a lecture) 



Here is an interesting test program for the advanced 
assembly language programmer. It allows the user to 
access and test many of the myriad arithmetic/trigono- 
metric subroutines that are extant in the excellent TRS-80 
Level II ROM that was written by Microsoft's Bill Gates 
and Paul Allen. 

The beginning assembly language programmer should 
certainly be taught and learn the how, why, and 
wherefores of writing fundamental arithmetic/trig 
functions by him/herself, but oncethese techniques have 
been mastered as part of the learning process, it is 
certainly inefficient, time wasting, and rather ridiculous to 
reinvent the wheel by duplicating in assembly language 
those subroutines already extant in the Level II ROM. 

Table 1 lists those functions and their addresses that 
may be accessed and tested by this mini-program that 
only occupies 144 bytes of high memory and may be 
entered using the TRS-80 Editor/Assembler in about 5 
minutes. 

Figure 13 is a print-out of the test program's source 
code and Figure 14 a listing of the program's object code. 
As may be easily seen, the majority of this program is 
written using Level II ROM subroutines. Were these 
subroutines not used in this particular assembly language 
test program, it would require approximately 10 times as 
much program memory and occupy 550 rather than 55 
assembly language program lines. 



Program Flow: 

The comments included with the source code program 
delineate each 'line's function. There is no need to 
duplicate or expand upon the comments here as they are 
largely self-explanatory. This program operates equally 
well with non-disk Level II, DOS 2.1, DOS 2.2 and 
NEWDOS+. Program operation is as follows: 

1. Load the program under the SYSTEM or DOS 
command. Give it any name you wish. We like the 
program name DISCOV, for discovery, since that is what 
the program is all about. After loading is complete, type in 
/32000 to activate the program (with disk you must first 
load BASIC, then type SYSTEM, ENTER, and then type in 
/32000 ENTER, if you loaded the program in DOS). 

2. The letter 'N' ? will appear on video. The program is 
asking you for a number to work on. Any number up to 16 
digits is all right depending on the function you wish to 
test. Let us start out with a simple example by entering the 
number 10000, a nice round easily visualized number, 
ENTER. 

3. The numbers '2' '10000' will appear on the next line of 
the video display. The '2' is the number 'type' brilliantly 
calculated by the Level II ROM. Since we are dealing only 
with numbers in this article we will blithely skip over 
strings, etc. for the time being. The number types are as 
follows: 2 = integer, 4 = single precision, and 8 = double 
precision. Table 1 lists those operations that can be 
performed on a number for a given number type; i.e., it is 
against the ru les to take the square root SQR of an integer. 
We must first change it. 



4. On the following lineof the videodisplayyou willsee'C 
?'. The program isaskingyou what type of CONVERSION 
you wish. Let's enter 2737 which = CSNG, change our 
number from an integer to single precision, ENTER. The 
next line will show, '4' '10000'. We now have a single 
precision number to work with, so let's now try taking its 
square root by typing in 5095 = SQR, then ENTER. 
ZAP. ..the next line shows '100'. Ah, the miracleof modern 
computer science at work. It sure was easierthan writing a 
complete stand-alone assembly language square root 
subroutine. Let's try it again. Type in 5095 ENTER. Again 
the line below displays the square root; this time the 
numeral 10. 

5. Stick around as this is only the beginning. To insert a 
new number to try your program on merely type in 32000 
ENTER. This brilliantly brings us back to where we started 
by displaying 'N ?'. Is 32000 a subroutine? Sure it is. You 
wrote it. Our assembly language program does not 
discriminate between ROM or RAM. It doesn't care. 

6. We could go on and on converting numbers like 
deriving the natural LOG of any number and then 
restoring it with the EXP command, and/or deriving the 
TANgent of a number, then its arc tangent ATN, and then 
the TANgent again. ..ad infinitum. You may escape this 
conversion routine any time you wish by typing 6681 
ENTER which will take you back to BASIC with a READY 
displayed. All you need do to return to your conversion 
routine is type SYSTEM then ENTER and type /32000 then 
ENTER. 

This exercise covers only a few of the subroutines 
extant in Level II BASIC ROM that are illustrated in Table 
1. 

Assembly language programming is the Mt. Everest of 
our hobby. You master it and you climb it because it is 
there. An assembly language program may run 300 times 
faster and use 1/10th as much memory as the same 
program in BASIC. 

Learning to talk to your computer in its own language 
rather than through an interpreter (BASIC, FORTRAN, 
PASCAL, or what-have-you), is probably one of the most 
satisfying and rewarding experiences you will ever have if 
you have the patience and fortitude to master it. 

Addendum: 

The demonstration program illustrated in Figure 13 will 
easily perform many more functions than the short list 
covered in Table 1. Make a note to come back to this 
program after you have finished Chapter 4 and have 
become familiar with data movement and data conversion 
subroutines. 

Most of the arithmetic + - * / subroutines using integer, 
single precision, and double precision numbers may be 
used by judiciously storing one number in "OS", the 
CDBL Store. CALL 2556 decimal = 09FCH moves data 
from the ACCUM to "CS". The next number is then input 
by loading "32000" into CONV ? and then entering this 
number in the ACCUM. 

By keeping close track of the NT (number type) so you 
call the appropriate arithmetic/conversion subroutine, 
and using the data movement subroutines covered in the 
next chapter, it is quite easy for this demo program to 
calculate LOG to the base 10, manipulatetrigfunctionsas 
desired, etc. Though you will never write a real-time 
program such as that given in Figure 13, it nevertheless 
offers you an excellent opportunity to practice and 
become familiar with Chapter 4's data conversion and 
data movement subroutines. Besides, it is an intellectual 
challenge.. .and challenges are fun when you WIN. 
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note: number types 
2 = integer; 4 = single precision; 8 = double precision 



FUNCTION 

ABS 

ATN 

BASIC 

BASIC 

BREAK 

CDBL 

CINT 

CLS 

COS 

CSNG 

EXP 

FIX 

INT 

INVERT SIGN 

INVERT SIGN 

LOG 

MEMORY 

RANDOM 

RETURN 

RND (see limits) 

SGN 

SIN 

SQR 

TAN 



NUMBER TYPE 
2-4-8 
4-8 
(RETURN L II) 
(RETURN DISK) 
(RST ADDRESS) 
2-4 
4-8 
2-4-8 
4-8 
2-8 
4-8 
2-4 
2 
2 
4-8 
4-8 
(DEFINE SIZE) 
2-4-8 
(TO SUBROUTINE) 
2-4-8 
2 
4-8 
4-8 
4-8 



DECIMAL 
2423 
5565 
6681 

112 

16396 

2779 

2687 

457 
5441 
2737 
5177 
2854 
2871 
3153 
2434 
2057 

181 

467 
32000 
5321 
2442 
5447 
5095 
5544 



7D00 
7D00 
7D00 
7D02 
7D05 
7D08 
7D09 
7D0C 
7D0D 
7D0E 
7D11 
7D14 
7D16 
7D19 
7D1C 
7D1F 
7D21 
7024 
7D27 
7D2ft 
7D2C 
7D2F 
7D31 
7D34 



3:E4E 

CD2fl05 

CDBilB 

D7 

CD6C0E 

08 

D9 

111D41 

21837D 

0608 

CDD709 

112741 

217B7D 

0608 

CDD709 

:<fiftF40 

3:2787D 

C630 
C:D2fl03 

:<E20 

CD2R03 
CDBD0F 



00100 W4UC:H 

00110 

00120 
00130 
00140 

00150 
00160 

00170 RETURN 

00180 
00190 
00200 
00210 

00220 
00230 
00240 
00250 
00260 
00270 
80280 
00290 

00300 
00310 

00320 
00330 



EQU 

ORG 

LD 

CALL 

CALL 

RST 

CALL 

EK 

EXK 

LD 

LD 

LD 

CRLL 

LD 

LD 

LD 

CRLL 

LD 

LD 

RDD 

CALL 

LD 

CALL 

CALL 



Figure 13 

7D00H 
N4I..IC:H 

A.. 4EH 
032AH 

1BB3H 

10H 

0E6i::H 

AF.. AF-- 

DE. 411DH 

HL.. STORE 

B, 8 

09D7H 

DE.. 4127H 

HL.. CDBL 

B. 8 

09D7H 

a <40RFH> 

(FLAG). A 

A.. 48 

032AH 

R,20H 

i32ftH 

0FBDH 



HEXADECIMAL 
0977 
15BD 
1A19 
0075 
400C 
OADB 
0A7F 
01 C9 
1541 
0AB1 
1439 
0B26 
0B37 
0C51 
0982 
0809 

00 B5 

01 D3 
7D00 
14C9 
098A 
1547 
13E7 
15A8 



7D00H = 32000 DECIMAL 
PROGRAM WILL START HERE 
4EH="N"=NUMBER DESIRED ? 
DISPLAV "N" ON VIDEO 
KVBD/VIDEO INPUT ROUTINE 
SCAN STRING - SET C FLAG 
ASCII-ACCUM RET MINIMUM 
EXCHANGE REGISTERS- 
TO PRESERVE VALUES. 
MOVE MEM RCCUM DATA FROM 
TO TEMPORARV STASH 
NUMBER OF BYTES TO MOVE 
MOVE IT - SUBROUTINE 
MOVE CDBL DATA FROM- 
TO TEMPORARV STASH. 
NUMBER OF BYTES TO MOVE 
MOVE IT - SUBROUTINE 
NUMBER TYPE MEM LOCATION 
MOVE TO TEMPORARY STASH 
CONVERT TO ASCII NUMBER 
i DISPLAY NUMBER TYPE 
i20H = ASCII SPACE 
J DISPLAY SPACE ON VIDEO 
;CONV MEM flCCUM TO ASCII* 
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7DK7 CDfi72.9 


00340 




CRLL 


28fl7H 


7D3:fl 3E0D 


00350 




ID 


R.. 0DH 


7D3C CD3200 


00360 




CRLL 


032H 


7D3F 3:E43 


00370 




LD 


R.. 43H 


7D41 CD2R03: 


00380 




CRLL 


32RH 


7D44 CDB31B 


00390 




CRLL 


1BB3H 


7D47 D7 


00400 




RST 


10H 


7D48 C:De.i::0E 


00410 




CRLL 


0E6CH 


7D4B i::D7F0fl 


00420 




CRLL 


0fl7FH 


7D4E 22797D 


00430 




LD 


•::CONV>,. HL 


7D51 :1.17B7D 


00440 




LD 


DE.. CDBL 


7D54 212741 


00450 




I.D 


HL, 4127H 


7D57 0608 


00460 




LD 


B, 8 


7D59 CDD709 


00470 




CRLL 


09D7H 


7D5C 11S3:7D 


00480 




LD 


DE.. STORE 


7D5F 211D41 


00490 




LD 


HL,41iDH 


7D62 0608 


00500 




LD 


B, 8 


7D€.4 i::DD709 


00510 




CRLL 


09D7H 


7D67 7i:fi787D 


00520 




LD 


fl.. CFLRG) 


7D6R 32RF40 


00530 




LD 


(40flFH).R 


7D6D 210C7D 


00540 




LD 


HL, RETURN 


7D70 E5 


00550 




PUSH 


HL 


7D71 2R797D 


00560 




LD 


HL, (CONV) 


7D74 E5 


00570 




PUSH 


HL 


7D75 08 


00580 




EK 


RF, RF- 


7D76 D9 


00590 




EXK 




7D77 C9 


00600 




RET 




0001 


00610 


FLRG 


DEF? 


1 


0002 


00620 


CONV 


DEFS 


2 


0008 


00630 


CDBL 


DEFS 


8 


0008 


00640 


STORE 


DEFS 


y 


7D00 


00650 




END 


W4UCH 


00000 TOTRL 


ERRORS 








C:DBL 7D7B 


00630 


00240 


00440 




CONV 7D79 


00620 


30430 


00560 




FLRG 7D78 


00610 


90280 


00520 




RETURN 7D0C 


00170 


00540 






STORE 7D83: 


00640 i 


:10200 


00480 




W4UCH 7000 


00100 


00110 


00650 





iDISPLRV CONVERTED NUMBER 
.;0DH=SKIP R LINE/'CRRR RTN 
.:D0 IT - ON VIDEO DISPLRV 
; "C" = CONVERSION NUMBER'* 
J DISPLRV "C" ON VIDEO 
;KVBD/VIDEO INPUT ROUTINE 
;SCflN STRING - SET C FLRG 
iRSCII-flCCUM RET MINIMUM 
CONVERT TO INTEGER 
STORE CONVERSION RDDRESS 
MOVE CDBL DRTR FM STRSH- 
TO PERMRNENT RDDRESS 
NUMBER OF BYTES TO MOVE 
MOVE IT - SUBROUTINE 
MOVE MEM RCCUM FM STRSH- 
TO PERMRNENT ADDRESS. 
NUMBER OF BVTES TO MOVE 
MOVE IT - SUBROLITINE 
NUMBER TVPE FROM STRSH- 
TO PERMRNENT RDDRESS 
RETURN MEM LOCRT I ON- 
LORDED INTO STACK. 
CONVERSION MEM LOCRT I ON- 

;lohd on top of stack. 
.: restore registers- 
.ito original values 
isnerkv call-top of stack 

.i NUMBER TVPE STASH 

.: CONVERSION ADDRESS STASH 

■iCDBL DATA STASH 

; ACCUMULATOR STASH 

.; AMATEUR RADIO CRLL LTRS 
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Ancillary Lewel II ROM Subroytines 



Introduction: 

Chapters 2 and 3 used a number of Level I! ROM 
ancillary subroutines that were not fully explained except 
for a few words in the source code comnnent column. 
Using Level II ROM BASIC functions' CALL subroutines 
efficiently requires a modest understanding of howto use 
other ancillary ROM subroutines that are there just 
waiting to be used. They include: KEYBOARD input, 
MOVE data, COMPARE data, CONVERT data, VIDEO 



PEEK 
PEEK 
PEEK 
PEEK 
PEEK 
PEEK 
PEEK 
PEEK 



(14337) 
(14338) 
(14340) 
(14344) 
(14352) 
(14368) 
(14400) 
(14464) 



output, and LINE PRINTER output amongst others. This 
chapter will present the CALL addresses and briefly 
explain the most useful ROM ancillary subroutines that 
will truly make shorthand assembly language 
programming a reality for you. 

Keyboard Review: 

Every advanced assembly language programmer 
knows that the keyboard is simply nothing more than a 
key/switch matrix that "looks like" RAM memory to Level 
II ROM. The keyboard's eight MEM locations are shown 
below in decimal. UA = up arrow, DA = down arrow, LA - 
left arrow and RA = right arrow. 



@ 


A 


B 


C 


D 


E 


F 


G 


H 


1 


J 


K 


L 


M 


N 





P 





R 


S 


T 


U 


V 


W 


X 


Y 


Z 















1 


2 


3 


4 


5 


6 


7 


8 


9 




J 


, 


- 




/ 


ENT 


CLR 


BRK 


UA 


DA 


LA 


RA 


SPA 


SHIFT 

















VALUE 



1 



The keyboard/switch matrix will output the VALUES 
shown above when a single key is pressed at the 
corresponding MEM location. For multiple keys pressed 
simultaneously, add up the values for each key; i.e.,"JKL" 
r 4 + 8 + 16 = 28 total at MEM location 14338 decimal. With 
these facts in hand it is easy to see how very simply 
NEWDOS+ includes the feature of line printing out the 
video display contents whenever "JKL" are pressed 
simultaneously. Now, go write a brief assembly language 
program that will do so with non-disk Level II. For the 
inveterate experimenter, try this little 1 line program and 



8 



16 



32 



64 



128 



press any combination of keys in the PEEK (14338) row: 

10 X=PEEK(14338) :PRINT(a478,X:GOTO10 

The three most useful Level II ROM ancillary 
subroutines for the keyboard follow. CALL locations are 
in hex. 

CALL 002B: This is the most fundamental keyboard 
subroutine that scans the entire keyboard and returns the 
ASCII character in the "A" register. A JR -Z loop must be 
created to repeat the scan as shown below: 



KYBD CALL 002BH 
CP A.OOH 
JR Z,KYBD 



Whenever a key is pressed, the CP (compare) "A" register 
with OOH is NOT zero so the program falls through to the 
line following JR Z,KYBD. This was the most commonly 
used keyboard subroutine by early assembly language 
programmers who did not know any better. It is seldom 
used any longer. 

CALL 0049: This is the ROM subroutine most similar to 
BASIC'S INKEY$ function. It automatically scans the 
keyboard UNTIL a key is pressed and then places the 
value in "A" register. No assembly language loop 
subroutine is required. A giant step forward from the 
002BH fundamental keyboard CALL. 

CALL 1 BBS: This is the main keyboard subroutine you will 
be using most frequently. It first displays the "?" prompt. 
Then input via the keyboard is converted to string format 
and terminated with a zero (up to 255 bytes). This string is 
stored at 40A7H + string length. It is usually followed by a 
RST 10 which sets the "C" flag. See the programs in 
Chapters 2 and 3 which use this call. This call 
automatically outputs keyboard input to the device 
specified by the contents of MEM location (409CH) : -1 = 
cassette, = video display and +1 = line printer. ROM 
initializes (409CH)=0. This subroutine is surely one of the 
most time saving, valuable, and frequently used ROM 
subroutines you will be using henceforth. A single CALL 
1BB3H will replace dozens of lines, if not pages, of 
assembly language programming for you. 



Data Movement: 

Level II ROM ancillary subroutines exist for moving 
data in assembly language programs FROM -TOvirtually 
any and all locations conceivable, often with only a single 
CALL. They are tremendous time and line savers and well 
worth becoming acquainted with on a first-hand basis. 

Once of the most useful data movement subroutines is 
that given in the data movement tables's first line, CALL 
09A4H. This CALL automatically transfers either an 
integer or single precision number from the ACCUM at 
MEM locations 41 1 DH through 41 24DH to the stack. POP 
BC and then POP DE will retrieve the number. If the 
number is single precision, registers BODE will contain it. 
If an integer, register DE will hold the number. 

Though ALL the data movement subroutines are very 
useful, those in lines "J" and "K" deserve special note. 
Each will MOVE up to 255 bytes from (DE) to (HL). The 
subroutine at "J" rquires that the number of bytes to be 
moved be in the "A" register, and the subroutine at "K" 
requires that the number of bytes to be moved be in the 
"B" register. 

NT = number type which is stored in MEM at 40AFH: 2 = 
integer, 4 = double precision, and 8 = double precision. 
CS^CDBL store. 
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Data Movement Table 



NO. 

A. 

B. 

C. 

D. 

E. 

F. 

G. 

H. 

I. 

J. 

K. 

L. 

M. 

N. 

O. 

P. 

Q. 

R. 

S. 

T. 

U. 

V. 



FROM 

ACCUM 

(HL)+ 

BCDE 

ACCUM 

(HL)+ 

ACCUM 

(DE) + 

(HL)+ 

(DE)+ 

(DE) + 

(DE)+ 

"CS" 

ACCUM 

HL 

DE 

HL 

BC 

DE 

HL 

STACK 

STACK 

STACK 



TO 

STACK 

ACCUM 

ACCUM 

BCDE 

BCDE 

(HL)+ 

(HL)+ 

(DE)+ 

(HL)+ 

(HL)+ 

(HL)+ 

ACCUM 

"CS" 

ACCUM 

HL 

DE 

STACK 

STACK 

STACK 

HL 

DE 

BC 



Note: Lines "O" through "V" are just plain old Z-80 
OPCODES, but are included to remind the programmer 
that when dealing with integers or single precision 
numbers they often are the simplest means of moving or 
temporarily storing data. See Chapter 2 where PUSH and 
POP are used to store both integer and single precision 
numbers while these registers are being used for other 
purposes. 



CALL 

09A4H/2468 

09B1H/2481 

09B4H/2484 

09BFH/2495 

09C2H/2498 

09CBH/2507 

09CEH/2510 

09D2H/2514 

09D3H/2515 

09D6H/2518 

09D7H/2519 

09F4H/2548 

09FCH/2556 

0A9AH/2714 

EX DE.HL 

EX DE.HL 

PUSH BC 

PUSH DE 

PUSH HL 

POP HL 

POP DE 

POP BC 



NT(40AFH) 
2,4 
4 
4 
4 
4 
4 
4 
2,4,8 
2,4,8 
A REG 
B REG 
2,4,8 
2,4,8 
2 
2 
2 
2,4 
2,4 
2 
2 
2,4 
2,4 



Data Comparisons: 

Equal to, less then, and greater than are some of the 
most frequently used functions in computer 
programming. Level II ROM very thoughtfully includes 
these functions that may be performed with a single 
CALL. The result is returned in the "A" register and = zero 
if the compare is equal, = +1 if the compare is > , and - 255 
(OFFH) if the compare is< . 







Compare 


Table 






NO. 


ITEM # 1 


SUBTRACT 


ITEM #2 


CALL 


NT(40AFH) 


A. 


HL 


- 


DE 


1C90H 


2 


B. 


ACCUM 


- 


BCDE 


OAOCH 


4 


C. 


HL 


- 


DE 


0A39H 


2 


D. 


ACCUM 


- 


"CS" 


0A4FH 


8 


E. 


"CS" 


- 


ACCUM 


0A78H 


8 


F. 


ACCUM 


DETERMINE 


SIGN 


0994H 


2,4,8 



Note: No. F above is same as the BASIC SGN function, but 
returns to register "A": zero if ACCUM = 0, +1 if ACCUM 
greater than zero, and 255 (OFFH) if ACCUM is less than 
zero. 



Data Conversions: 

Are straightforward and very necessary in most all 
arithmetic operations as the NT (number type) must 
match-up with the CALL subroutine's function; i.e., 
integer, single precision or double precision + - * /. The 
most useful conversions are: 



Add 

Subtract 
Multiply 
Divide 



DATA CONVERSIONS 

CALL 0A7FH: any ACCUM to integer ACCUM (CINT). 

CALL 0AB1H: any ACCUM to single precision ACCUM (CSNG). 

CALL OACCH: integer ACCUM to single precision ACCUM. 

CALL OACFH: integer HL to single precision ACCUM. 

CALL OADBH: any ACCUM to double precision ACCUM. 

CALL 0E65H: ASCII string to ACCUM in double precision format. 

CALL 0E6CH: ASCII string to ACCUM;NT will = minimum required. 



Integer No. 

0BD2H/3026 
DE+HL 

0BC7H/3015 
DE-HL 

0BF2H/3058 
DE*HL 

2490H/10560 
DE/HL 



Arithmetic Call Summary 

Single Precision 

0716H/1814 
BCDE+ACCUM 

0713H/1811 
BCDE-ACCUM 

0847H/2119 
BCDE*ACCUM 

08A2H/2210 
BCDE/ACCUM 



Double Precision 

0C77H/3191 
ACCUM+"CS" 

0C70H/3184 
ACCUM-"CS" 

08A2H/2210 
ACCUM*"CS" 

0DE5H/3557 
ACCUM/"CS" 
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Note: NT (number type) at (40AFH) must agree with 
operation CALLed. NT: 2 = integer, 3 = string, 4 = single 
precision, and 8 = double precision. 

* ACCUM at MEM locations 411DH through 4124H. 

* "CS" = CDBL Store at MEM 4127H through 412EH. 

Video Display: 

Most TRS-80 video display subroutines have been well 
known to computer buffs the last 2 years, including the 
fundamental ROM video subroutine, CALL 033H which 
displays the "A" register on video. CALL 032AH which 
displays the "A" register on video if MEM location 409CH 
contains a zero which is the value stored upon 
initialization. Most IMPORTANTLY, CALL 032AH does 
indeed store the video display LINE cursor position at 
MEM location 40A6H which is very useful and eliminates 
redundant programming on your part. 

One of the most important subroutines for reflecting 
keyboard input on video is CALL 1BB3H which was 
covered earlier in this Chapter. This CALL displays the 
string beginning at (HL) and terminated with a zero on 
video if MEM location 409CH contains a zero. The video 
display control block, page D/1, Level II Manual in 
conjunction with the line cursor position at 40A6H allows 
you to modify and/or use the video display as you wish. 

One of the more fascinating assembly language 
exercises using the video display, is to write a "tight" 
source code program that creates SPLIT-SCREEN video 
operation. The upper half of the video display serves as 
the RECEIVE sectorfor Morse code, radio teletype (ASCI I 
now allowed), or even simple phone line MODEM 
communications, while the lower half of the video display 
would serve as the TRANSMIT segment. This segment 
allows the user either "look-ahead" or"type-ahead" FIFO 
(first-in-first-out) operation from RAM at whatever output 
baud rate desired. If you have the uppercase/lowercase 
modification recommended by Electric Pencil, it is a 
simple matter to have those characters that have already 
been transmitted in uppercase, and those characters yet 
to be transmitted in lowercase. Alternatively, a moving 
cursor or a moving CHR$(170) figure may be used to 
indicate what data has been transmitted versus data yet to 
be transmitted in the TRANSMIT sector of the video 
display. Both halves of the video display operate entirely 
independently; i.e., from their own separate video MEMs 
in RAM with their own scrolling, etc. The transmit sector 
utilizes the Z-80's interrupt mode for "type-ahead" 
simplex operation. Remember, the last 7 bits of video 
memory is just plain old RAM and may be used for storage 
(as in FIFO) just like any other RAM memory segment. 



in Chapter 7's "Print All Zeroes With A Slash Program", 
where an extra 20 millisecond delay was required to allow 
the vibration from a BACKSPACE to dampen/die out. 

This slash/zero program has not been previously 
published and illustrates a few interesting points about 
line printer programming. It intercepts the NEXT 
character to be printed by modifying the line printerdriver 
address at 4026H and 4027H to allow a moment's 
branching to this brief routine. It justs so happens thatthe 
"C" register contains the NEXT character to be printed 
when using the LLIST command with non-disk Level II, 
DOS 2.1, DOS 2.2, and NEWDOS+, as well as the 
NEWDOS+ "JKL" feature that LPRINTS the contents of 
the video display. By simply testing the next character to 
be printed, a variety of options are made available to the 
programmer. 

To illustrate a few points, let us assume that your line 
printer utilizes IBM's highest-quality heavy-duty Selectric 
mechanism like the Western I/O (IBM #2970) Printer 
Terminal. These can be purchased used and refurbished 
with interface to the TRS-80, for $1 1 00. Only 8 years ago, 
these IBM #2970's sold new for over $7000 each. Today, 
they are the industry's most cost-effective printers. They 
are the best choice for those who demand IBM quality 
print-out in both lower and upper case,, in addition to the 
decided advantage of being able to use any or all of the 
myriad type faces offered in inexpensive IBM Selectric 
snap-in elements. 

Even the excellent ASCII IBM elements do not include 
the zero with a slash across it as it looks strange indeed to 
non-computer types reading a business letter. In some 
program listings though, it is of considerable assistance 
to the reader to have the slash/zero printed as such, to 
avoid confusing zeros with capital "O". Chapter 7's short 
program prints all zeros with a slash and all lines with 64 
characters. It may bemodifiedtoprintall > =GTandall ^ 
= LT, etc., as desired. As it is a teaching program, it may be 
compacted considerably. Try cutting it down by 1/3rd. 



Line Printer: 

Much like the video display, there are few significant 
new surprises about line printer ROM subroutines. Again, 
the value stored in MEM location 409CH determines 
where the output from CALL032AH and 1 BB3H keyboard 
subroutines goes; i.e., if (409CH) contains +1, the output 
will go to the line printer. As shown on page D/1 of the 
Level II Manual, the line printer address is 37E8H and line 
printer control block from MEM locations 4025H to 
204CH. MEM location 37E8H will contain the value 63 
decimal = ASCII ? when your line printer is ready to accept 
another character (handshake). A few cheap surplus 
printers do not have this handshake feature and should be 
avoided like the plague; caveat emptor, especially with old 
Datel printers, even those with the handshake feature, do 
not even make good boat anchors for small dinghys. As 
soon as MEM location 37E8H receives the 63 handshake 
from your line printer it is ok (in most cases) to load the 
next character to be printed into (37E8H) via "A" register 
and the LD opcode. An exception to this rule is illustrated 
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This summary includes the coupling CALL addresses 
for DOS and Disk BASIC because they are called from 
Level II ROM. In addition, the link address for BREAK is 
included as it may be intercepted at 400CH before calling 
an RST and either rendered inoperative or used for 



whatever purpose the programmer wishes. One extra 
bonus for disk users underthe heading "MASTER" is the 
master password "F3GUM", which will allow you to 
access ANY protected file in either DOS or Disk BASIC 
when using DOS 2.1, DOS 2.2, or NEWDOS+. (Thank you, 
Manny Garcia.) Every lock has a key and "F3GUM" will 
allow you to LOAD, KILL, transfer or do whatever you 
wish with any disk file/program whether SIP (system- 
invisible-protected) or otherwise. 



BASIC 
FUNCTION 
ABS 
ASC 
AUTO 
CDBL 
CINT 
CLOAD 
CLS 
CONT 
CSAVE 
CVD 
CVS 
DEF 
DEFINT 
DEFSTR 
DIM 
ELSE 
EOF 
ERR 
EXP 
FIX 
FN 
GET 
GOTO 
INKEY$ 
INPUT 
INT 
LEFT$ 
LET 
LIST 
LOC 
LOG 
LPRINT 
MASTER 
MERGE 
MKD$ 
MKS$ 
NEW 
NOT 
OPEN 
PEEK 
POKE 
PRINT 
RANDOM 
REM 

RESTORE 
RESUME 
RND 
RUN 
SET 
SIN 
STOP 
STRING$ 
TAN 
TROFF 
USR 
VAL 



HEX CALL 
ADDRESS 

0977 

2A0F 

2008 

OADB 

0A7F 

2C1F 

01 09 

1DE4 

2BF5 

415E 

4158 

415B 

1E03 

1E00 

2608 

1F07 

4161 

24CF 

1439 

0B26 

4155 

417F 

1EC2 

019D 

21 9A 

0B37 

2A61 

1F21 

2B2E 

4164 

0809 

2067 

F3GUM 

418B 

4170 

416D 

1B49 

25C4 

4179 

2CAA 

2CB1 

206F 

01 D3 

1F07 

1D91 

1FAF 

14C9 

1EA3 

0135 

1547 

1DA9 

2A2F 

15A8 

1DF8 

27FE 

2AC5 



BASIC 
FUNCTlOi 
&H 
ATN 
BREAK 
CHR$ 
CLEAR 
CLOSE 
CMD 
COS 
CSNG 
CVI 
DATA 
DEFDBL 
DEFSNG 
DELETE 
EDIT 
END 
ERL 
ERROR 
FIELD 
FOR 
FRE 
GOSUB 
IF 
INP 
INSTR 
KILL 
LEN 
LINE 
LOAD 
LOF 
LLIST 
LSET 
MEM 
MID$ 
MKI$ 
NAME 
NEXT 
ON 
OUT 
POINT 
PCS 
PUT 
READ 
RESET 
RETURN 
RIGHT$ 
RSET 
SAVE 
SGN 
SQR 
STR$ 
SYSTEM 
TIME$ 
TRON 
VARPTR 



HEX CALL 

ADDRESS 

4194 

15BD 

400C 

2A1F 

1E7A 

4185 

4173 

1541 

0AB1 

4152 

1F05 

1E09 

1E06 

2BC6 

2E60 

1DAE 

24DD 

1FF4 

417C 

1CA1 

27D4 

1EB1 

2039 

2AEF 

419D 

4191 

2A03 

41 A3 

4188 

4167 

2B29 

4197 

27C9 

2A9A 

416A 

418E 

22B6 

1F6C 

2AFB 

0133 

27 F5 

4218 

21EF 

0138 

1EDE 

2A91 

419A 

41 AO 

098A 

13E7 

2836 

02B2 

4176 

1DF7 

24EB 



* footnote: ELSE = 1 F07 hex is questionable even though 
ROM points to his address. ROM also points to 1F07 for 
the REM function which appears correct. It may be only 
an improperly shadow-masked bit on this particular Level 
II ROM chip. 
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500 CLS ; CLERR200 
510 CMD"T 
520 PRINT 

53:0 ■■ i:iNERRORGOTO540 
540 -RESUMESS© 
550 PRINT" W 4 U C 
G R fl M 
560 PRINT 
570 PRINT" 
580 PR 
590 PR 
600 PR 
610 PR 
620 PR 
63:0 PR 
640 PR 
650 
660 
670 
680 
690 
700 
710 



INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INPUTRfi|::i::LS 



N LI rt B E R C N V E R S I N P R 



C'ECiriRL TO BINRRV ENTER D 
EiINRRV TO DECIMRL ENTER B 
HEXRDECIMRL TO BINRRV ENTER HB 
DECIMRL TO HEXRDECIMRL ENTER DH 
HEXRDECIMRL TO DECIMRL ENTER HD 
SPLIT DECIMRL TO DECIMAL ENTER SP 
DECIMRL TO SPLIT HEXRDECIMRL ENTER DS 
SPLIT HEXRDECIMRL TO DECIMRL ENTER SD 



IFRRf="HB"GOTO1550 
IFRR$="DH"THENQB$="" 
I FRR*= " DS " THENRRt= " DH " : QB$= " DS 
IFRR*="SD"GOTO1500 
IFflfl$="HD"GOTO1550 
IFRR$="B"GOTOS60 
720 REM DECIMRL TO BINRRV CONVERSION 

NO. ";X;IFX>655: 



750 
760 
770 



JGOTO730 



B=INT<R/'2) 
E=INT<D/2> 
H=INT<G/2) 
K=INT<J/2) 
N=INT<M/2> 



BE:=R-2>J=B 
EE=D-2*E 
HH=G-2HcH 
KK=J-2>f:K 
NN=M-2'f=N 



C=INT(B/2> 
F=INT<E/2) 
I=INT<H/2> 
L=INT(K/2> 
0=INT<N/2> 



CC=B-2*C 
FF=E-2*F 
II=H-2*I 
LL=K-2h^L 
00=N-2*0 



73:0 CLS: INPUT" DECIMRL 
740 fl= I NT •:: X/2 > : RR=X-2:+=R 

D=INT<C/2>:DD=C-2*D 

G=INT<F/2>:GG=F-2*G 

J=INT<I/2):JJ=I-2*J 
780 M= I NT <: L/2 > : MM=L-2*M 
790 PP=0-2* I NT •:: 0/2 > 

800 V$=STR$ ( PP ) +STR$ < 00 > +STR$ ( NN > +STR$ < MM ) +STR$ < LL > +STR$ < KK > +STR 
$ < J J ) -J-STR* (ID +STR$ < HH > +STR$ ( QG > -J-STRf < FF ) +STR$ < EE > +STR$ < DD > +STR$ 
( CC ■;• -5-STRl: ( BB ) +STR$ < RR ) 

810 IFRR$="SP"THENN0=N0+1 : QB*="DS" : GOTO1200 

820 I FRRf = " DH " RNDQB$= " " THENPR I NT ; PR I NT " HEXRDEC I MRL " ,; : GOTO1200 
830 IFQB$="DS"GOTO1200 
840 PRINT" BINRRV #"V$: INPUTR:GOTO7i:0 
850 REM BINRRV TO DECIMRL CONVERSION 
860 CLS: INPUT" 16.. 8.. OR 4 DIGIT BINRRV NO. "jRR 
870 CLS ■ PR INTRRj "DIGIT BINRRV NO. ".; : INPUTX$ 
880 I FLEN <. y.$ > ORRGOTO870 
890 F0RZ=1T0RR : X=VRL<MID$(X$. Z. 1) > : IFZ=lTHENfl=X 

IFZ=2THENB=X 

IFZ=3THENC=X 

IFZ=4THEND=X 

I Fflfl=8GOTO970ELSE I FRR=16GOTO970 

NEXT 

950 V=fl*8+B*4+C^:2+D 

960 PR I NT " DEC I MRL " V : I NPUTR : GOTO870 
970 IFZ=5THENE=X 
980 IFZ=6THENF=X 
990 IFZ=7THENG=X 
1000 IFZ=8THENH=X 
1010 IFflfi=16GOTO1050 
1020 NEXT 

1030 V=R*128'^B*644-C*32+D*16-^E'i«8-fF*44-G't'2+H 
1040 PRINT" DECIMRL" V : INPUTR : GOTO870 
1050 IFZ=9THENI=X 



900 

910 
920 
930 
940 
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ICiiSe IFZ=10THENJ=X 

1070 IFZ=11THENK=X 

1080 IFZ=12THENL=X 

1090 IFZ=13:THENM=X 

1100 IFZ=14THENN=X 

1110 IFZ=15THENi:i=';< 

1120 IFZ=lbTHENP=X 

1130 NEXT 

1140 V=R*3:2?b8+B*liS384+C*81924-D*4096+F*2048^F*1024-»-G+512-i-H*256+l 

*12S+-T*t.4+K*32+L*lb-fM*8+W*4+r!*2+P 

1150 PR I NT : PR I NT " DEC I MflL " ; V : I NPUTR 

lies IFRfi$="SP"GOTO730 

1170 IFHflt="B"GOTO870 

1180 I FhR$= " HD " Gi:iTCil540 

1190 I Ffifl*= " SD " GOTU1500 

1200 DHf=MID$(V$. 1. 8) GnsiJB1250 

1210 DH$=MID$':V$.. 9. 8) :GOSUB1250 

1220 DH$=MIDl:(V*, 17,. 8> • GOSUB1250 

123:0 DH$=MIDl:(V$. 25. B:- :GOSUB1250 

1240 PR I NT " " ; I NPUTR • GOTi:i71:0 

1250 DH=VftL(DH$) : IFDH=0THENDH$="0 

1260 IFDH=1THENDH$="1 

1270 I FDH=10THENDH*= " 2 

1280 IFDH=llTHENDH$="i 

1290 1 FDH=100THENDH$= " 4 

13:00 I FDH=101THENDH$= " 5 

13:10 IFDH=110THENDH$="6 

13:20 IFDH=111THENDH$="7 

13:3:0 I FDH=1000THENDH$= " 8 

13:40 I FDH=100iTHENDH$= " 9 

13:50 I FDH=1010THENDH$= " R 

13:60 I FDH=1011THENDH$= " B 

13:70 I FDH=1:1 00THENDH$= " C 

13:80 I FDH=1101THENDH$= " D 

13:90 I FDH=1110THENDH$= " E 

1400 I FDH=1111THEHDH$= "F 

1410 I FQB$= " DS " THENQQ=QQ+1 

1420 I FQQ=1THENRR$=DH$ : RETURN 

1430 I FQQ=2THENSS$=DH$ : RETURN 

1440 I FQQ=3:THEHTT$=DH$ : RETURN 

1.450 I FQQ=4THENUU$=DH$ 

1460 I FQB$= " DS " flNDRfl$= " DH " THENPR I NT : PR I NT " SPl... I T HEX " ; TT $.; UU$ 

i m-i; SS$ • QQ=0 • I NPUTR • Gi:iTi:i73:0 

1470 I FQB$= " DS " RWDflR$= " SP " RNDNO=lTHENFFt=TT*-HUU* QQ=0 ■ GOTri73:0 

1480 I FQB|:= " DS " RNDRR*= " SP " RNDN0=2THENSS$=TT*+UU$ ■ >::$=SSi-f-FF$ : Nri=0 

: QQ=0 : PR I NT " HEXRDEC I Mfll.. " ; k'$ : GOTni560 

1490 PRINTDHf-; : RETURN 

1500 •■SPLIT HEX TO DECIMRL CONVERSION 

1510 CLS: INPUT "SPLIT HEX NO. ".; SHf 

1520 SI$=LEFT$(SH$.. 2> :SJ$=RIGHT*(SH$.. 2) 

1530 X$= " " : X$=SJ$-^S I ■$■ : GOTO1560 

1540 REM HEX TO DECIMRL RND HEX TO BINRRV CONVERSION 

1550 X$="": INPUT "HEXRDECIMflL NO. ".iXt- 

1560 I FLEN ( X$ > O4GOTO1550 

1570 F0RXX=1T04 : R|:=M I D$ ( )<%, XX.. 1 > 

1580 I FR$= " " THENfl$= " 0000 

1590 I Ffl$= " 1 " THENR|:= " 0001 

1600 I FR|:= " 2 " THENR$= " 0010 
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1610 


IFfi$=":<"THEHR$= 


'0011 




1620 


IFR$="4"THENfi$=' 


'0100 




1630 


IFfi$="5"THENR$=' 


'0101 




1640 


IFfi|:="6"THENR$=' 


'0110 




1650 


IFfi$="7"THENR$=' 


'0111 




1660 


IFR$="8"THENR$=' 


'1000 




1670 


IFRi:="9"THENR$=' 


■1001 




1680 


IFR$="R"THENR$=' 


'1010 




1690 


IFR$="B"THENRf-=' 


'1011 




1700 


IFR$="C"THENfl$=' 


'1100 




1710 


IFR$="D"THENR$=* 


1101 




1720 


IFfl$="E"THENR$=' 


■1110 




1710 


IFRf="F"THFNfl$=' 


'1.111 




1740 


HN=NN+1 






1750 


ONNNGCiTO1760.. 177 


0.. 1780.. 1 


790 


1760 


BB$=m : 


next:> 


K : GOTO1570 


1770 


fXS=m ; 


next;:^ 


X : GOTO1570 


1780 


DD$=R$ ; 


NEXTJ< 


:=<:GOTO1570 


1790 


EEI:=R$ 






1800 


J<:$=BB$-n::C:$+DD$+EE$ : HN=0 




1810 


I FRR$= " HB " THENPR I NTX$.: " 


BINRR't' ".; 


1820 


RR=16 : GOTCI890 






18K0 


END 






1848 


•' 






1850 


••■ NOTE: PROGRAM 


UTILIZES 


3908 BVTE! 



INPUTR;CLS:GOTO1550 
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7F15 
7F15 
7Fi5 
7F17 
7F18 
7F19 
7Flfl 
7F1B 
7Fi!:; 
7F1E 
7F20 
7F23 

"7C-"'C:, 
r r iC-J 

7F27 
7F2F! 
7F2B 
7F2F 

7F2F 
7Fi:l 

7f:<;4 

7Fl:5 

7Fi:6 

i' F i- (■' 

7F1:8 

7F:i:B 

7Fi:D 

7F40 

7F42 

7F44 

7F47 

7F49 

7F4C: 

7F4E 

7F51 

7F56 
7F!^ift 
7F5fl 
7F5B 
7F5E 
7F60 
7F62 
7F66 
7F69 
7F6B 
7F6E 
7F70 
7F72 
7F74 
7F75 
7F78 
4026 
4026 



157F 

F5 

CS 

D5 

E5 

79 

FE0D 

2S1B 

3fll57F 

FE40 

i:fli57F 
3C 

12157F 
79 

FEl:0 
Ci::!:.B7F 
El 
Dl 
CI 
Fl 

C3:8D05 
1:E00 
i:2i57F 
18F2 

r<E00 

32157F 

18DE 

r:D537F 

3E0D 

32E837 

18EF 

3RE837 

CB7F 

20F9 

C9 

CD537F 

3E2F 

i2E8~i7 

CD537F 

CD6E7F 

3E08 

32E837 

0E0fl 
0600 

10FE 
0D 

C2707F 
C9 

177F 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
001 70 
00180 
00190 
00200 
00210 
00220 
00230 

00240 
00250 
00260 
00270 
00280 
00290 

00300 
00310 

00320 
00330 
905:40 

00350 
00360 
00370 
00380 
00390 

00400 
00410 

00420 

00430 
00440 

00450 
0€i460 
00470 
00480 
00490 

00500 
00510 

00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 

00600 
00610 

08620 
00630 
00640 
00650 



; SOURCE CODE PROGRAM TO PRINT fill ZEROS MITH fl SLASH 
.: WITH AUTO CARRIAGE RETURN i? 64 CHARACTERS WHEN LLIST 



COUNT 
START 



FINIS 



ELFIN 



NO INC 



RESET 



CARRET 






ZERO 



DELAV 

DELRVl 

DELAV2 



ORG 

EQU 

DEFW 

PUSH 

PUSH 

PUSH 

PUSH 

I D 

CP 

JR 

ID 

CP 

JR 

LD 

INC 

LD 

ID 

CP 

CALL 

POP 

POP 

POP 

POP 

JP 

LD 

LD 

JR 

LD 

LD 

JR 

CALL 

LD 

LD 

JR 

LD 

BIT 

JR 

RET 

CALL 

LD 

LD 

CALL 

CALL 

LD 

LD 

LD 

LD 

DJNZ 

DEC 

JP 

RET 

ORG 

DEFW 



=32553 DECIMAL ORIGIN 
MEM ! OCATION FOR CHAR COUNTER 
ASSEMBLER SAVES 2 BVTES i 7FJ5H 
SAVE REGISTERS IN STACK MEMORY 



7F15H 
7F15H 
COUNT 
AF 
BC 
DE 
HI 

A, C ;NEKT CHARACTER TO PRINT IN C REG 
0DH : IS IT A CARRIAGE RETURN';^' 
2. NO INC ;EXIT W/'O INCREMENTING COUNTER 
A. (COUNT) ; COUNTER VALUE FROM MEM 
040H : IS IT 64 DECIMAL = END OF LINE? 
Z. CARRET i IF SO.. GOTO CARR RETURN 
A.. (COUNT) .; IF RETURN FM CARRET 
A ;ADD -M CHARACTER ON LINE 
(COUNT). A ;NEW COUNT NUMBER TO MEM 
:NEXT CHARACTER TO PRINT IN C REG 
.i30H=ASCII ZERO IS IT A ZERO? 



H; l: 

30H 

Z.. ZERO 

HI 

DE 

BC 

AF 

05SDH 

A^ 00H 

(COUNT 

ELFIN 

A.. 00H 



RESTORE REGS TO ORIG. CONDK 



iGOTO ROM STD PRINTER ROUTINE 

.: RESET CHARACTER COUNTER- 
:■,. A I IN MEMORY 

.: QUICK DEPARTURE 

.! RESET CHARACTER- 
( COUNT). .A .; COUNTER IN MEMORY. 
FINIS .:ALL DONE 
TEST .;TEST IF PRINTER READY? 
A. 0DH :0DH = ASCII CARRIAGE RETURN 
(37E8H).. A .iDO CARRIAGE RETURN 
RESET iGOTO RESET CHARACTER COUNTER 
A. (37FSH) .; PRINTER MEM LOCATION 
7.. A .; PRINTER READY HANDSHAKE? 
NZ.. TEST jLOOP TIL HANDSHAKE 

.: RETURN TO LINE AFTER CALL 
TEST ,: IS PRINTER READY? 
A. 2FH .;2FH=ASCIi SLASH 
(37E8H).. A : PRINT -/' SLASH 
TEST ; IS PRINTER READY? 
DELAY .:20 MILLISECOND DELAV 
A, 08H .:08H = ASCII BACKSPACE 
(37E8H).A .;D0 BACKSPACE 
C 0AH .; I N I T I AL I ZE DELAY- 
B.. 0H .; LOOPS TO ALLOW SELECTRTC- 
DELAY2 .; PRINT HEAD TIME TO SETTLE DOWN- 
C .:FROM BACKSPACE VIBRATION AND- 
NZ..DELAY1 J FOR TRACK TO LOCK. 

; RETURN TO LINE AFTER CALL DELAY 
4026H iPUT ADDRESS OF START IN PRINTER- 
START ; DRIVER ADDRESS AT 4026H MEMORY. 
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7F15 00670 
7F15 00 00680 
7F15 00690 
00000 TOTRL ERRORS 
CflRRET 7F49 00440 
COUNT 7F15 00:150 



DELRV 

DELfiVl 

DELRV2 

ELFIN 

FINIS 

NO INC 

RESET 

STRRT 

TEST 

ZERO 



7F 6E 00590 
7F70 00600 
7F72 006:10 
7F34 003:10 
7F27 00270 
7Fi:B 003:80 
7F42 00410 
7F:1.7 00170 
7F53 00480 
7F5B 00520 



ORG COUNT iCHRRRCTER COUNTER MEM flDDRE'^ 

DEFB 00H ; INITIRLIZE RT ZERO. 

END COUNT ; FIRST LINE OF SUBROUTINE 

00260 

00160 00240 00270 00290 001:90 00420 00670 
00690 
00560 
0063:0 

00610 
00400 

0043:0 
0023:0 
00470 

00440 00500 00520 00550 

003:20 
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Self-Test Questions 

The following pages of self-test questions cover a number of important points in the preceding chapters and 
demonstration programs. If you understand the logic, program flow, and rationale of each chapter/program's contents, 
you should have little difficulty in answering the questions. If a question's answer is not clear, re-read/study the 
appropriate chapter and/or demonstration program till osmosis occurs, as in time it will indeed permeate. If all else fails, 
try putting this handbook under your pillow and sleeping on it. (ED.) 

Self-Test Questions for Chapter 1: 

1. What is meant by masking the most significant bit (MSB)? 

2. What are the decimal and hexadecimal locations in ROM for the Level II functions' NAMES? 

From , 

/ 



to. 

/_ 



3. Why are disk BASIC'S functions' names and coupling addresses in non-disk Level II BASIC ROM? 

4. How would you mask the MSB of any MEM location in a simple program written in BASIC? 

5. How many MEM groups (separate address segments) do the BASIC functions' CALL addresses occupy? Beginning 
locations? 



A.. 
B.. 
C. 
D.. 



6. Name the 2 geniuses at Microsoft who wrote Level II and disk BASIC (luckily they did not write DOS 2.1 or 2.2). 

A _^_ 

G 



7. Why are the BASIC functions' CALL addresses in Level II ROM expressed LSB first and MSB second? 

8. What are the decimal values of PEEK 5666 and 5667? What Level II function's CALL address do they represent? 

A 

/ ^^^____ 



B. 



9. What are the MEM locations in decimal and hex of the following PEEK values? A. 194-30 B. 15-42 C. 255-255 D. 0-255 

A 

/ ^_^___ 

B 

I __^______ 

C 

/ 

D _^_^_________ 

/ 
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Self-Test ■■ Chapter 2: 

1 . On the average, how much faster will efficiently written assembly language programs run than BASIC? MEM required? 



B 

2. What do we call the 2 RAM arithmetic storage locations? 

A._ 

B._ 



3. What is the NT (number type) for the following numbers? 

A. 10000 

B. 33000 

C. 1 .01 1 



D. 1.1111111 

4. Where is the NT (number type) stored in RAM memory? 



5. What type of numbers are represented by NT (number type) =? 

A. 2 = 

B. 3 = 

C. 4= 

D. 8 = 



6. In Figure 7, what is accomplished by line 310? 



7. In Figure 7, what is accomplished by line 320? 



8. In Figure 9, what is accomplished by lines 340/350? 



9. In Figure 11, what is accomplished by line 310? 



10. How many significant digits in a CDBL argument? 



NOTES 



Self-Test Questions - Chapter 3: 

1. Does Level II ROM ever use the Z-80 alternate register pairs AF' - BC - DE' - HL' ? 

2. Where is the ROM CALL location to move "B" register bytes from MEM location XXXX to MEM location YYYY? 

3. How many MEM locations in the ACCUM and CDBL store? Where? 



4. How is the NT (number type) converted to ASCII? 



5. What CALL converts the ACCUM to an ASCII string? 



6. What function does Figure 13's line 420 perform? Why? 



7. What is the difference between CINT and INT? 



8. What is the difference between RANDOM and RND? 



9. How is the conversion MEM location CALLed in Figure 13? 



10. How is the RETURN MEM location CALLed in Figure 13? 
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Self-Test Questions - Chapter 4: 

1. What is the value of PEEK (14464) if one shift key is pressed? If both shift keys are pressed? 

2. What is the value of PEEK (14338) if H, I, J, K, L, M, N, and O keys are pressed simultaneously? 

3. What is the major difference between CALL 002BH and 0049H? 

4. What data is stored at MEM location 409CH? 

5. What is the simplest way to store an integer and single precision number in RAM (not counting the ACCUM and CDBL 
store)? 

6. Where are data comparison results stored? What values? 

7. What is the value of the "A" register if CALL 0994H is used and the ACCUM contains -1.9999999999? 

8. What CALL is used to change any value to an integer? To a single precision number? To a double precision number? 

9. What is the value of NT RAM storage for a string? 

10. What value will MEM location 37E8H contain when the line printer is ready (handshake)? What MEM location is loaded 
with the NEXT character to be printed? 



11. Write a brief assembly language program to output to the video display a message of ANY length using the CALL 
28A7H subroutine. 

Note: This subroutine will output a string of up to 63 characters with non-disk Level II. By concatenating the strings with 
additional DEFM OPCODES, the message length is only limited to 240 bytes/CALL 28A7H. 

Self-Test Questions - Chapter 5: 
Fill in decimal CALL locations for these Level II functions using Chapter 7's Multi-Base Conversion Program: 



BASIC 
FUNCTION 

ABS 

ATN 

CDBL 

CINT 

CLOAD 

CONT 

CSAVE 

DATA 

DEFINT 

DEFSTR 

DIM 

ELSE 

ERR 

ERROR 

FIX 

FRE 

GOTO 

INKEY$ 

INPUT 

INT 

LEN 

LOG 

LPRINT 

MID$ 

NEXT 

ON 

PEEK 

POKE 

PRINT 

READ 

RESET 

RESUME 

RND 

SET 

SIN 

STOP 

STRINGS 

TAN 

TRON 

VARPTR 



CALL 
ADDRESS 



BASIC 
FUNCTION 

ASC 

AUTO 

CHR$ 

CLEAR 

CLS 

COS 

SNG 
OEFDBL 
DEFSNG 
DELETE 
EDIT 
END 
ERL 
EXP 
FOR 
GOSUB 
IF 

INP 
INSTR 
LEFTS 
LIST 
LLIST 
MEM 
NEW 
NOT 
OUT 
POINT 
POS 

RANDOM 
REM 

RESTORE 
RIGHTS 
RUN 
SON 
SQR 
STR$ 
SYSTEM 
TROFF 
USR 
VAL 



CALL 

ADDRESS 
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Self-Test Questions - Chapters 6 and 8: 

1. A. In ChapterG's "Number Conversion Program", is line 510 only for disk BASIC? B. Should it be deleted for non-disk? 



2. How many fundamental number conversions are performed by Chapter 6's "Number Conversion Program"? 



3. How is the "SPLIT DECIMAL TO DECIMAL" conversion performed? 



4. In Chapter 7's program, rewrite lines 170-200 and 330-360 to use EX AF.AF' and EXX OPCODES instead of the stack for 
storage. Be VERY careful. 



5. A. In line 490, rewrite this line to use the CP (compare) OPCODE instead of BIT 7, A. B. What is the difference? 



6. Why are lines 590-630 necessary with IBM Selectric printers? 



7. If you had a line printer with 130 characters per line capability (most IBM Selectric PrinterTerminals have it) how would 
you modify this program to use all 130 positions? 



Bibliography and Answers to Self-Test Questions 

Bibliography and Books Awailabie: 

Using the consumers' scale of: BEST buy, GOOD buy, FAIR buy, POOR buy, and utterly WRETCHED, there is nothing 
on the market today for the TRS-80 assembly programmer that rates much higher than FAIR in this reviewer's opinion, 
with two exceptions. They are both for the advanced assembly language programmer and are: 

BEST: 

Andrew Hildebrand's 

"Software Technical Manual", @ $40. 

Houston Micro Computer Technologies 

5313 Bissonnet Street 

Bellaire, Texas 77401 

GOOD: 

Lance Leventhal's 

"Z-80 Assembly Language Programming", @ $15. 

Adam Osborne & Associates 

630 Bancroft Way 

Berkeley, California 94710 

Both of the above books assume that the reader has at least a few years of experience of 8080A assembly language 
programming experience before jumping into the Z-80. 

There is really nothing truly worthwile available forthe beginning assembly language programmer. This includes Radio 
Shack's "TRS-80 Assembly Language Programming," at $3.95. Even at $3.95 it is grossly OVERPRICED and in our kindest 
moments deserves our WRETCHED rating. There is nothing else for the beginner but garbage, but if one is truly hungry 
enough and holds one's nose, garbage is better than starving to death. 

The following books have received our FAIR consumers' rating because of considerable generosity on our reviewer's 
part. 

FAIR: 

"Z-80 Programming For Logic Design" 
great for typewriter mechanics 

"The Z-80 Microcomputer Handbook" 
the cover should be a clue to the buyer 

"Z-80 Software Gourmet Guide and Cookbook" 
cooked tripe is still tripe 

What the 200,000+ TRS-80 owners above the 5th grade level are awaiting is W60VP's new book on the subject of 
assembly language programming. W60VP is Dr. David Lien, Dean of San Diego University, a professional educator. 

Dave Lien wrote the "User's Manual for Level I," which is certainly the finest tutorial for beginning BASIC programmers 
from age 12 to 80 ever published, and followed it up in the fall of '79 with "Learning Level II," which also deserves an 
excellent rating. If and when Dave publishes tutorials on disk BASIC and assembly language programming, they will 
indeed be on the best-seller list. 
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Answers to Questions on Chapters 1 to 7 
Note: 

Advanced assembly language programmers' will undoubtedly think many of the questions naive to the point of 
ridiculousness. Indeed, many questions are absurdly simple to DRIVE HOME points to those readers who may NOT be as 
advanced as others. It is a difficult balancing act, so we ask for your patience and understanding. 

Answers to Chapter 1: 

1. Assume that PEEK (5712) = 197 decimal. 5712 is MEM location 1650H. Now, 197 decimal = 11000101 binary. The left 
most bit isal which is masked (eliminated). Itnow = 1000101 binary = 69decimal = ASCII "E".Since10000000binary = 128 
decimal this same bit may be masked by simply subtracting 128 from the PEEK decimal value. 

2. From 5712 decimal/1650H to 6172 decimal/IBICH. 

3. They are all CALLed by non-disk Level I! ROM. If no disk is present or operating = L3/ERR0R. 

4. Subtract 128 from the PEEK value. 

5. Two. 

6. From 6178 decimal/1822H to 6297 decimal/1899H, and from 5642 decimal/160AH to 5711 decimal/164FH. 

7. Convenience plus allowing modest upward compatibility between the earlier 8080 microprocessor andthenewerZ-80, 
both invented/designed by Dr. Frederico Faggin (President of Zilog). 

8. 189 and 21 decimal. 

9. ATM = arc tangent with output value in radians. 

10. A. 7874 decimal/1 EC2H 
B. 10767 decimal/2A0FH 
0. 65535 decimal/FFFFH 
D. 65280 decimal/FFOOH 

Answers to Chapter 2: 

1. A. 300 to 350+ times faster. 
B. 1/10th as much memory. 

2. ACCUM and CDBL Store; ("OS" abbreviation). 

3. A. = 2 

B. = 4 ( > 32767) 

C. = 4 

D. = 8 

NOTE: 3 = string 

4. NT MEM location at 40AFH. 

5. A. 2 = integer 

B. 4 = single precision 

C. 8 = double precision. 

6. CALL 0E6CH changes an arithmetic string to minimum NT and stores it in the ACCUM in the appropriate format, plus 
storing the NT in MEM location 40AFH. 

7. CALL 0A7FH = CINT which changes ANY number in the range of +32767 to -32768 to an integer. 

8. Uses stack MEM in RAM to store the single precision value of registers BCDE while BODE are used in following CALLs. 

9. See answer to question 6, above. CALL 0E65H is similar, but stores the number in the ACCUM in double precision 
format and sets the NT in MEM location 40AFH to 8. 

10. THIS MAYSURPRISE YOU. Answer: only as many digits as contained in the argument. Up to 17 digits maximum. If the 
argument contains 10 significant digits, the last 7 digits will be meaningless. See Radio Shack's "Microcomputer 
Newsletter", October '79, page 2 for an excellent explanation. 
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Answers to Chapter 3: 

1. NO, they are never used in Level II ROM as this Microsoft BASICIs sort of the son of an earlier 8080 BASIC and the 8080 
has neither OPCODE. This allows YOU to use it whenever desired and save 4+ bytes compared with PUSH and POP. 

2. CALL 09D7H/2519 decimal. 

3. Eight in each one. 

4. ADD A,48 ;converts to ASCII. 

5. CALL OFBDH converts ACCUM to a string (address in HL), and NT in MEM location 40AFH = 3. 

6. A. Converts any number in CINT range in ACCUM to integer. 

B. All ROM CALL locations are integers, so acts as a trap for erroneous input. 

7. RANDOM re-initializes the Z-80 random number generator. RND with NT = 2 = integer, generates a pseudo-random 
number between 1 and the integer value in the ACCUM. RND with NT = 4 = a single precision number, generates a pseudo 
random single precision number between zero and the number in the ACCUM which must = or >■ 1. 

8. INT returns a round number (no decimal points) for ANY number. CINT changes any number with up to 7 digits to an 
integer within the range of +32767 and -32768. 

9. Line 600's OPCODE is a RET which effectively POPs the top number off the stack, thus CALLing the CONV MEM 
location. 

10. Since each listed CONVersion subroutine ends with a RET, this effects a POP the top number off of the stack, which is 
the RETURN address. This is a very useful ploy at times. 

Answers to Chapter 4: 

1. A. 1 
B. 1 



NOT zero (till any key is pressed). 



2. 255 decimal 

3. CALL 002BH scans the keyboard ONCE. CALL 0049H scans the keyboard ti 
Virtuallay the same as INKEY$ in BASIC. 

4. MEM location 409CH stores "output" directions for CALL 1BB3H (among others). Initialized at Zero = video display, +1 
line printer, and -1 = cassette. 

5. A. PUSH DE or PUSH HL. 

B. PUSH BC and PUSH DE. 

C. Move 8 bytes from ACCUM to MEM via CALL 09D6H or 09D7H. 

6. A. In the "A" register. 

B. Zero. 

C. +1. 

D. 255 (OFFH). 

7. 255 decimal - 11 11 1 1 11 binary - OFFH hex 

8. A. CALL 0B37H/2871 decimal = INT; CINT's range is limited. 

B. CALL 0AB1H/2737 decimal = CSNG 

C. CALL OADBH/2779 decimal = CDBL. 

9. 3 decimal 

10. A. 63 decimal ^ ASCII ? (what next?). 
B. 37E8H 



;MESSAGE PROGRAM 

;7D00H = 32000 DECIMAL 

;STRING MEM ADDRESS 

iDISPLAY $ SUBROUTINE 

;SEE NOTE BELOW 

SUBROUTINES' 

;END OF MESSAGE DELIMITER 

;RETURN TO BASIC 

;CONCATENATE ANY LENGTH TO 240 BYTES. 



11. 






W4UCH 


EQU 


7D00H 




ORG 


W4UCH 




LD 


HL,STRING 




CALL 


28A7H 


STRING 


DEFM 


'USING LEVEL II ROM J 




DEFB 







JP 


1A19H 




END 


W4UCH 
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Answers to Chapter 5 

Level II BASIC Function Call Addresses in Decimal 



BASIC 
FUNCTIOI 

ABS 

ATN 

CDBL 

CINT 

CLOAD 

CONT 

CSAVE 

DATA 

DEFINT 

DEFSTR 

DIM 

ELSE 

ERL 

ERROR 

FIX 

FRE 

GOTO 

INKEY$ 

INPUT 

INT 

LEN 

LOG 

LPRINT 

MID$ 

NEXT 

ON 

PEEK 

POKE 

PRINT 

READ 

RESET 

RESUME 

RND 

SET 

SIN 

STOP 

STRING$ 

TAN 

TRON 

VARPTR 



CALL 
ADDRESS 

2423 
5565 
2779 
2687 

11295 
7652 

11253 
7941 
7683 
7680 
9736 
7943 
9437 
8180 
2854 

10196 

7874 

413 

8602 

2871 

10755 
2057 
8295 

10906 
8886 
8044 

11434 

11441 
8303 
8687 
312 
8111 
5321 
309 
5447 
7593 

10799 
5544 
7671 
9461 



BASIC 
FUNCTION 

ASC 

AUTO 

CHR$ 

CLEAR 

CLS 

COS 

CSNG 

DEFDBL 

DEFSNG 

DELETE 

EDIT 

END 

ERR 

EXP 

FOR 

GOSUB 

IF 

INP 

INSTR 

LEFT$ 

LIST 

LLIST 

MEM 

NEW 

NOT 

OUT 

POINT 

PCS 

RANDOM 

REM 

RESTORE 

RIGHTS 

RUN 

SON 

SQR 

STR$ 

SYSTEM 

TROFF 

USR 

VAL 



CALL 
iDDRESS 

10767 

8200 

10783 

7802 

457 

5441 

2737 

7689 

7686 

11206 

11872 

7598 

9423 

5177 

7329 

7857 

8249 

10991 

16787 

10849 

10054 

11049 

10185 

6985 

9668 

11003 

307 

10229 

467 

7943 

7569 

10897 

7843 

2442 

5095 

10294 

690 

7672 

10238 

10949 
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Answers to Chapters 6 and 7: 

1. A. YES: to speed-up disk a bit 

B. YES: remove from non-disk 

2. A. To round-off division by 2 to an integer = a short-cut in the decimal to binary conversion equation. 
B. 4 fundamental conversions — rest are only messages. 



decimal to binary 
binary to decimal 
binary to hexadecimal 
hexadecimal to binary 



lines 
lines 
lines 
lines 



740 - 


840 


860- 


1150 


1200 - 


1490 


1550 - 


1810 



3. The first decimal number is converted to hex and stored in FF$ in line 1470. The second decimal number is then 
converted to hex and stored in SS$ in line 1480. FF$ and SS$ are then reversed and made = to X$ in line 1480. The correct 
hex number which is X$ is then displayed on video in line 1480. This hex number, X$, isthen converted to binary, and next 
converted to decimal, and then displayed on video. Though very SHOW when decimal, and then displayed on video. 
Though very SLOW when written in BASIC, it still beats a Hewlett-Packard calculator. 



EXCHANGE ALTERNATE REGS. 
NEXT CHAR. TO "A" REGISTER 
EXCHANGE BC DE HL ALT. REG 



00170 START EX AF,AF' 

00180 LD A,C 

00190 EXX 

delete lines 00200 and 00210 

NOTE: Since the NEXT character to be printed is in the "C" register, we MUST load it into "A" BEFORE exchange. 

00330 ELFIN EX AF,AF' ;EXCHANGE ALTERNATE REGS. 

00340 EXX ;EXCHANGE BD DE HL ALT. REG 

delete lines 00350 and 00360 

NOTE: This little exercise deleted 4 lines and 4+ bytes. A very decided improvement and good technique. 

5.00490 CP 3FH ;is it ASCII ? = 63 decimal 

6. Backspace vibrates most IBM Selectric printers quite severely. Try your printer without these lines. Use only if 
necessary. 

7. Change line 250 to read: 

00250 CP 082H ;is it 130 decimal = end of line? 

FINAL REQUEST: Please send ANY errors you find to: 

RICHCRAFT ENGINEERING LTD 

DRAWER 1065 

CHAUTAUQUA, NY 14722 
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Level II ROM Fynction Address Table 



Function 


Token 


Address 


Function 


Token 


Address 


Function 


Token 


Address 


ABS 


D9 


0977 


GOSUB 


91 


1EB1 


READ 


8B 


21 EF 


AND 


D2 


25FD 


GOTO 


8D 


1EC2 


REM 


93 


1F07 


ASC 


F6 


2A0F 


IF 


8F 


2039 


RESET 


82 


0138 


ATN 


E4 


15BD 


INKEY$ 


09 


019D 


RESTORE 


90 


1D91 


AUTO 


B7 


2008 


INP 


DB 


2AEF 


RESUME 


9F 


1FAF 


CDBL 


F1 


OADB 


INPUT 


89 


21 9A 


RETURN 


92 


1EDE 


CHR$ 


F7 


2A1F 


INSTR 


05 


419D 


RIGHTS 


F9 


2A91 


CINT 


EF 


0A7F 


INT 


D8 


0B37 


RND 


DE 


1409 


CLEAR 


B8 


1E7A 


KILL 


AA 


4191 


RSET 


AC 


419A 


CLOAD* 


B9 


2C1F 


LEFT$ 


F8 


2A61 


RUN 


8E 


1EA3 


CLOSE 


A6 


4185 


LEN 


F3 


2A03 


SAVE 


AD 


41A0 


CLS 


84 


01 09 


LET 


80 


1F21 


SET 


83 


0135 


CMD 


85 


4173 


LINE 


9C 


41 A3 


SON 


07 


098A 


CONT 


B3 


1DE4 


LIST 


B4 


2B2E 


SIN 


E2 


1547 


COS 


El 


1541 


LLIST 


B5 


2B29 


SQR 


CD 


13E7 


CSAVE 


BA 


2BF5 


LOAD 


A7 


4188 


STEP 


CO 


2B01 


CSNG 


FO 


0AB1 


LOG 


EA 


4164 


STOP 


94 


1DA9 


CVD 


E8 


415E 


LOF 


EB 


4167 


STR$ 


F4 


2836 


CVI 


E6 


4152 


LOG 


DF 


0809 


STRINGS 


04 


2A2F 


CVS 


E7 


4158 


LPRINT 


AF 


2067 


SYSTEM* 


AE 


02 B2 


DATA 


88 


1F05 


LSET 


AB 


4197 


TAB( 


BO 


2137 


DEF 


BD 


415B 


MEM 


08 


2709 


TAN 


E3 


15A8 


DEFDBL 


9B 


1E09 


MERGE 


A8 


418B 


THEN 


CA 


— 


DEFINT 


99 


1E03 


MID$ 


FA 


2A9A 


TIME$ 


07 


4176 


DEFSNG 


9A 


1E06 


MKD$ 


EE 


4170 


TO 


BD 





DEFSTR 


98 


1E00 


MKI$ 


EC 


41 6A 


TROFF 


97 


1DF8 


DELETE 


B6 


2B06 


MKS$ 


ED 


416D 


TRON 


96 


1DF8 


DIM 


8A 


2608 


NAME 


A9 


418E 


USING 


BF 


2CBD 


EDIT 


9D 


2E60 


NEW 


BB 


1B49 


USR 


01 


27FE 


ELSE 


95 


1F07 


NEXT 


87 


22 B6 


VAL 


FF 


2AC5 


END 


80 


1DAE 


NOT 


CB 


2504 


VARPTR 


CO 


24EB 


EOF 


E9 


4161 


ON 


A1 


1F6C 


+ 


CD 


249 F 


ERL 


02 


24DD 


OPEN 


A2 


4179 


- 


CE 


2532 


ERR 


03 


24CF 


OR 


D3 


25F7 


* 


OF 


— 


ERROR 


9E 


1FF4 


OUT 


AO 


2AFB 


/ 


DO 


— 


EXP 


EO 


1439 


PEEK 


E5 


2CAA 


-t- 


D1 


— 


FIELD 


A3 


4170 


POINT 


06 


0132 


>• 


D4 


— 


FIX 


F2 


0B26 


POKE 


B1 


20B1 


= 


D5 





FN 


BE 


4155 


PCS 


DO 


27 F5 


•< 


D6 


— 


FOR 


81 


1CA1 


PRINT 


B2 


206 F 


& 


26 


4194 


FRE 


DA 


27 D4 


PUT 


A5 


4182 


' 3A 93 


FB 





GET 


A4 


4174 


RANDOM 


86 


01 D3 









This alphabetic list of functions will help you find ROM routines quickly. The hex addresses refer to memory and the 
comments by memory address on the following pages. 



NOTE: SUPERMAP is designed to be transferred to a disassembled listing of LEVEL II BASIC. Three and five 
digit numbers are decimals. All 4 digit numbers are hexadecimal. 
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SUPERMAP by Roger Fuller 



0000 Power on routine Turn off clock Zero A Then jump 



0008 RST 8H: (HL)-((SP)) SN ERROR if non zero 



0010 RST 10H: Increment HL, pass through string ignore CR and spaces. Set C if next character numeric. 
Reset C if not. 



0013 Keyboard routine (see 002B) 



0018 RST 18H: HL-DE Z set if equal. C set if DE>HL. 



001 B Display routine 



0020 RST 20: If NTF=8 C is reset else C set. A=NTF-3 S and Z flags valid. Maintains BC, DE, HL. 



0028 RST 28H BREAK vector 



002B Scan keyboard return with char in A Uses AF, DE 



0033 Display byte in A on screen 



003B Printer driver entry 

0049 Scan keys wait for key pressed Uses AF, DE 



KEYBOARD LOOKUP TABLE 



0050 ( 


ENTER) 


0051 


(ENTER) SHIFT 


0052 


CLEAR) 


0053 ( 


CLEAR) SHIFT 


0054 


BREAK) 


0055 


BREAK) SHIFT 


0056 


UP ARROW) 


0057 


UP ARROW) SHIFT 


0058 


DOWN ARROW) 


0059 


DOWN ARROW) SHIFT 


005A 


(LEFT ARROW) 


005 B 


(LEFT ARROW) SHIFT 


005C 


(RIGHT ARROW) 


005D 


(RIGHT ARROW) SHIFT 


005 E 


(SPACE) 


005 F 


(SPACE) SHIFT 



NOTE: SUPERMAP is designed to be transferred to a disassembled listing of LEVEL II BASIC. Three and five 
digit numbers are decimals. 

*See table of tape formats at end of chapter. 
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0060 Delay loop BC is counter 14.65 microseconds each loop 



0066 NMI RESET 



0075 Non DOS Initialization area move 18F7-191C to 4080-40A6 

008B 41 E8 to input buffer address pointer (40A7) 

0091 Load dummy jump vectors in DOS commands jump addresses. Jump will be to L3 ERROR (01 2D) instead 

of DOS. Used during Level II interpretation of BASIC program. Command entry points. 

009F Place return commands in DOS link area (these are used by Level II machine routines) 

00B2 'MEMORY SIZE' routine Clear screen 

00B5 Point to 'MEMORY SIZE' message 

00B8 Display it 

OOBB Wait for user input 

OOBE If (BREAK) ask again 

OOCO Locate 1st char 

00C1 Is it anything? 

00C2 if so skip memory size routine 

00C4 Test for end of actual memory. Used when (ENTER) is given to memory size question 

00C7 HL=memory pointer 

OOCC Get a byte in memory 

OOCD Save it in B for later 

OOCE Complement it 

OOCF Put it back where you got it 

OODO See if memory was there to receive it 

00D1 Put back original byte 

00D2 Do until memory fails test 

00D6 Convert input 

OODA SN ERROR if not numeric input 

OODF Load test byte 

00E1 Save current memory byte 

00E2 Put in test byte 

00E3 Was memory there to receive it? 

00E4 Restore memory 

00E5 Go back to memory size routine if user was wishful thinking (NOTE: you end up with less memory 

available even if you exceed actual size by 1) 

00E7 Point to end of memory -1 

00E8 Load minimum memory size 

OOEB Check for under size 

OOEC OM ERROR if under 17430 Then since BC=0000 return in error routine will result in a JP to 0000 

OOEF Prepare to reduce memory by 050 

00F2 Save end of memory 

00F5 Reduce by 050 (CLEAR 050) 

00F6 Save string space pointer 

00F9 Revelation 21:5 

OOFC Point to 'RADIO SHACK...' message 

OOFF Display it 

0102 On to the farm 



0105 'MEMORY SIZE' message 

0111 'RADIO SHACK LEVEL II BASIC message 



01 2D L3 ERROR entry point 



0132* POINT 
0135* SET 
0138* RESET 



019D* INKEY$ 



01 C9* Clear screen Displays code for CLS 



01 D3* RANDOM Uses refresh register 
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01 D9 Make a cassette pulse 



01 F8 Turn cassette off 
01 F9 Bit 2 controls motor 



1=on O=off 



0212 Define drive 1,0 in A 



021 E Reset the tape input circuit 
0221 Out reg A to port FF 



0234 Blink* 



0235 Read A byte 



0241 Read bit (1 or 0) 

0243 Wait for timing 'PIP' 

0248 Delay 

024C Reset input circuit 

0251 Delay 

0253 Look for 'PIP' if present then bit=1. If not then bit=0 



0264 


Write a byte 


0268 


8 bits to send 


026A 


Save byte in A 


026B 


Send timing PIP 


026 E 


Restore byte 


026 F 


Bit to carry 


0270 


Save byte 


0271 


Jump if bit is to be a 


0273 


Send PIP for a bit=1 


0276 


Next bit 


0277 


Loop til done 



027E 


Delay for a bit=0 


0284 


Turn on cassette 


0287 


Write leader and sync byte 


0289 


Byte to send is 00 


028A 


Send byte 


028 D 


Loop til done 


028 F 


Sync byte 


0291 


Send it, return when done 


0293 


Turn on cassette 


0296 


Find leader and sync byte 


0297 


Zero A 


0298 


Get a bit 


029 B 


Sync bit yet? 


029D 


No loop til so 


029 F 


Get A* 


02A1 


Send left * 


02A4 


Send right * 



Ready 255 count 
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02A9 Get 2 bytes from tape 

02AC Save 

02AF Turn off cassette 

02B2* System RET if non DOS 

02B5 Initialize stack in input buffer area 

02B8 Return to beginning of line 

02BA Get * prompt 

02BD Display it 

02C0 Wait for input 

02C3 Bail out if (BREAK) 

02C6 Locate first character 

02C7 SN ERROR if dry run (no input) 

02CA Check for jump command (/) 

02CC If jump 

02CE Find leader 

02D1 Read a byte 

02D4 System header? 

02D6 No? Loop back 

02D8 File name block length (6) 

02DA First character 

02DB End of block? 

02DC Yes? Blink * 

02DE Read a byte 

02E1 Correct character? 

02E2 Point to next character 

02E3 If not correct start over 

02E5 Finish a 6 pack 

02E7 'Twinkle Twinkle Little *' 

02EA Read a byte 

02ED Entry point header? 

02EF If yes 

02F1 Data header? 

02F3 If not 

02F5 Read byte 

02 F8 Save # data bytes 

02 F9 Get load address 

02FC Low order byte of address to initialize check sum 

02FD Save check sum 

02FE Read a byte 

0301 Put it in place 

0302 Point to next place 

0303 Retreive check sum 

0304 Update it 

0305 Loop til block read 
0307 Read check sum 
030A Check it 

030B Loop back if okay 

030D Get a C 

030F Display it 

0312 Loop back anyway 



See SYSTEM and EDITOR/ASSEMBLER 
tape formats at end of chapter. 



0314 Get 2 bytes and put in HL 

031 D Jump routine 

0322 Check for an address, evaluate input 

0329 Jump to it 



032A Output byte to tape, video, or printer (409C)= -1,0,1 

032B Save byte 

032C Return if non DOS 

032 F Get device type flag 

0333 Restore byte 

0335 Write to tape 

0338 Write to printer 

033A Write to video 

0342 Update cursor position (0-3F limit) 
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0348 Check for double width. (403D)=8 for 32 character line. (403D)=0 for 64 character line. 
0355 Reset if cursor position beyond end of line 



0361 Keyboard input to buffer. Input routine for keyboard 

0362 Reset last key storage 
0365 Reset line cursor position 

036C Load buffer pointer (normally 41 E8) 

036F Buffer length=240. Use insert to add nnore 

0371 Return with full buffer 

0375 C = input length 

0376 BC = input length 

0378 HL = end of input length pointer 

0379 Terminate input with 00 flag 

037B Return pointer to beginning of buffer 

0380 Back up for RST 10 

0381 If (BREAK) 



0384 Called by DOS exit 41 AF. Loop til key pressed 

038B Return printer carriage to beginning of next line if required 

038C Select video output 

038F Get printer position 

0382 Check for beginning of line 

0393 If so return 

0394 Get CR 
0397 Send it 



039C Output to line printer 

03AD Get a to reset print position 

034A If top of form 

03A8 If line feed 

03AA Get CR 

03AD Send it 

03B1 Get printer position 

03BA Get character 



03 C2 
03 C9 
03CD 
03CE 
03CF 
03D1 
03DC 

03 E3 
03 E6 
03 E9 
03 EC 
03EB 
03ED 
03F0 
03F2 
03 F3 
03 F4 
03 F6 
03 F9 

02 FA 

03 FB 
03FF 
0400 
0402 
0403 
0404 
0406 
0407 
0409 



Driver entry routine 

Save return address 

Put character to display in C 

Get device type flag, (DE)= 1,7,6 for keyboard, video, line printer 

B=1 keyboard B=:2 video or printer 

Non DOS put in A 

Jump to appropriate driver routine 



Keyboard driver HL=keyboard buffer pointer 

BC=Row address pointer 

D=Row counter (0 to 6) 

Save in E 

Get row byte at (BC) 

Keep America beautiful 

Go if key pressed 

Bump row counter 

Bump keyboard buffer pointer 

Point to next row 

Go next row til all but (SHIFT) tested 

Return if no key pressed (A=0) 

Save row byte 

Get row count 

Put row count *8 in D 

Ready teting mask Bit position = Column # 

Load mask 

Test for key 

Jump if found 

Bump column # for test 

Move test bit to next column 

Do again 
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0405 Get shift bit 

040E Save in B 

040F Load row bit * 8+column # 

0410 Add 064 to it (this adjusts for ASCII letters) 

0412 Test for non letter code 

0414 Go if non letter (last 3 rows) 

0416 Send shift bit to carry 

0418 Skip lower case adjustment if no shift 

041 A Convert to lower case 

041 C Save in D 

041 D Get row 6 bits 

0420 Test for down arrow 

0422 Go if not down arrow 

0424 Retrieve character 

0425 Adjust 



0429 Test for last row 

042B Jump if last row 

042D Readjust to rows 4, 5 A=row * 8 + column # + 016 

042F Check for = or ) or ? 

0431 Jump if not 

0433 Adjust ASCII 

0435 Get shift bit 

0437 Jump if not shift 

0439 Adjust ASCII 

043B Jump 



043D A=(row * 8 + column # - 048) 

043E Get shift bit 

0440 Jump if not 

0442 A=column # * 2 + 1 

0443 Point to code table 
0446 Displacement 

0449 Compute position in table 

044A Get ASCII code 

044B Save character 

044C Load delay count 

044F Delay 

0452 Retreive character 

0453 Check for (BREAK) 
0455 Leave with character 
0457 Return 



0458 Video driver 

045B Screen cursor position in HL 

045E Jump if just entered from 3DC 



0467 Get character 

046A If control character 

046F If graphic or space compression 

0473 If not a letter 

0479 If upper case 

047B Change to upper case 

04A1 Cursor to beginning of line 



04A6 Check for space compression code 

04A8 If graphic 

04AA Remove bias 

04AF Get space 

04B1 Send it 

04B4 Loop til decompressed 



04B8 Turn on cursor 

04BD Turn off cursor 

04C0 Home cursor 

04C3 Change to 64 character mode 
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04CE Backspace and erase 
04D2 Check for 64 character 



04DA Backspace cursor 



04EC TAB 



04F6 Go double width 
04FB Set mode flag 
04FE Go double 



0506 Save return address 

050G If backspace 

050E If no function 2,3,4,5,6,7,9 

0513 If turn on cursor 

051 D If double width 

0521 If shift back arrow 

0523 If right arrow 

0529 If down arrow 

052D If up arrow 

0531 If home cursor 

0535 If beginning of line 

053A If erase to end of line 

053C If erase to end of frame 



0554 
0557 
055 B 
055 E 
0562 

058 D 
0591 
0595 
0599 

059 F 
05A2 
05A5 
05A6 
05A9 
05AD 
05B0 
05 B2 



Scroll display Point to top of display 
Point to row 2 
15 rows to move 

Hup one two Hup one two 

Blank out row 16 



Printer driver routine 

Top of form wanted? 

Top of form wanted? 

Top of form 

Get lines per page (4028) 

Subtract current line position (4029) 

Place # remaining lines in B 

Printer ready? 

Wait til so 

Send a LF 

Til job is done 

Zero count 



05B4 Send character out 

05B5 Printer ready? 

05B8 Wait til so 

05BB Send character 

05BE OR? 

05 CO If not 

05C1 Bump line counter 

05C7 Page? 

05C8 If not 

05CC Zero line counter 



05D1 Printer hand shake. Ready if A=(0011XXXX). Bit 7=0 (not busy). 
Bit 6=0 (Paper OK). Bit 5=1 (Device selected). 
Bit 4=1 (No Fault). Bits 3,2,1 ,0 not teted. 



05D9 Input routine HL points to input area 

05DF C=buffer bytes remaining (240 at start) 

05ED Return with key pressed in A 

060C Put character in buffer 
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0613 Print it 



0619 If clear screen hit, clear buffer. (This is why clearing screen with keyboard erases typed but unentered 
code) 



0630 Backup cursor 



0641 Double width 



0674 Initialization Move 06D2-0707 to 4000-4035 

0683 Do above 128 times (beat a dead horse) 

0689 Zero 4036 to 405D 
068B Test for BREAK 

0690 If not BREAK 
0693 Load new stack 
0696 Get disc status 
069C If non DOS 



06A1 Select drive 

06A4 Point to controller 

06AA Restore 

06AF Twiddle thumbs 

06B2 Test for READY 

06B7 Zero sector register 

06BD Read 

06C9 Go DOS loader 



06CC Entered on NMI RESET (see 0066) 



06D2- RST jump addresses, I/O device control block 
0707 



070B Floating point addition ARITH=(HL) + ARITH 



0710 Floating point subtraction ARITH=(HL)-ARITH 

0713 Floating point subtraction ARITH=BCDE-ARITH 

0716 Floating point addition ARITH=BCDE+ARITH 

07B2 OV ERROR entry point 



0809* LOG ARITH=LOG(ARITH) 



lOTE: See 411D to 4124 for ARITH 



0847 Floating point multiplication ARITH=BCDE* ARITH 



08A2 Floating point division : ARITH=BCDE/ARITH 



0955 Check ARITH for Zero 



0977* ABS: ARITH=ABS(ARITH). Integer or single in and out. 

NTF required and maintained. 
0982 ARITH= -ARITH: Single only. Maintains BC, DE 



098A* SGN accept floating point or integer. Output integer in ARITH 



0994 Check sign of ARITH, FLOAT or INTEGER. Requires NTF. A=00 if ARITH=0. A=01 if ARITH 
greater than 0. A=FF if ARITH less than 0. S and Z flags also valid 



09A4 Load single ARITH to stack. To retrieve POP BC, POP DE. A,BC,HL unaltered. 
09B1 Load single: ARITH=(HL)(HL+1)(HL+2)(HL+3) 
09B4 Load single: ARITH=BCDE. HL unaltered 
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09BF Load single: BCDE=ARITH. 

09C2 Load single: BCDE=(HL)(HL+1)(HL+2)(HL+3) 

09CB Move from (ARITH) to (HL) 4 bytes 

09CE Move from (DE) to (HL) 4 bytes 



09D2 Move from (HL) to (DE) NTF bytes 

09D3 Move from (DE) to (HL) NTF bytes 

09D6 Move from (DE) to (HL) A bytes 

09D7 Move from (DE) to (HL) B bytes 

09F4 ARITH=ARITHX + NTF 

09FC ARITHX=ARITH + NTF 



OAOC Single compare: ARITH-BCDE 



0A39 Integer compare: HL-DE 



0A4F Double compare: ARITH-ARITHEX 
0A78 Double compare: ARITHEX-ARITH 



lOTE: See 4127 to 41 2E for ARITHEX 



0A7F* CI NT 

0A83 Already integer 

0A84 TM ERROR if string 

0A87 If double convert to single 



0A9A Return to BASIC with output of user routine in HL. 
0A9D Flag it integer 



0AB1* CSNG 



OACC INTEGER ARITH to SINGLE ARITH conversion 
OACF INTEGER HL to SINGLE ARITH conversion 



OADB* CDBL: ARITH(DOUBLE)=ARITH(INTEGER OR SINGLE). Requires NTF 



0AF4 TEST NTF=3 (STRING). If string return else error. 
BC.DE.HL unaltered. 



0AF6 TM ERROR entry point 



0B26* FIX: If floating point truncate to integer and return floating POINT. If integer return. If string error. 



0B37* INT 

0B38 If integer 

0B39 If double 

0B3B TM ERROR if string 



0C70 DBL precision subtraction: ARITH=ARITH-ARITHEX 
0C77 DBL precision addition: ARITH=ARITH+ARITHEX 



0DA1 DBL precision multiplication: ARITH=ARITH*ARITHEX 

ODES DBL precision division: ARITH=ARITH/ARITHEX 

0E65 Load double precision ASCII constant to ARITH. Point HL to input string delimited by or 

comma. After load HL points to delimiter 
0E6C Load ASCII constant to ARITH. Return the least necessary number type (see Level II manual for 

rules) Point HL to input string delimited by or comma 
0E7B If- 
0E80 If + 
0E84 If numeric 
0E89 If . 
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0E8E If E 

0E92 If % 

0E97 If # 

0E9C If ! 



0F40 Multiply HL by ten 



OFAB Output 'IN' message 



OFAF Output A line # 



OFBD ARITH and NTF to ASCII conversion HL points to string 



13E7* SQR 
1439* EXP 



1409* RND 



1541* OOS 
1547* SIN 
15A8* TAN 



15BD* ATM 



1608 TABLE OF ENTRY POINTS FOR LEVEL II BASIC COMMANDS 



1650 RESERVED WORD LIST FOR LEVEL II COMMANDS 
1821 End of table marker 



See chart at beginning of Chapter 



1822 Table of jump addresses for entry points of BASIC instructions. 



191 D 'ERROR', 'IN', 'READY', 'BREAK' strings for BASIC messages 

1930 If (409A)=2 SN ERROR output GOTO edit mode 

1955 10 testing service 

197A OM ERROR entry point 



199A Divide by zero ERROR entry point 

199D NF ERROR entry point 

19A0 RW ERROR entry point 

19A2 Error output routine. Error code in E 

19E6 Return to beginning of line. Zero A 

19E9 Point HL to bottom of error message table 

19EF Non DOS return 

19EF Zero D 

19F0 Get A '?' 

19F2 Display it 

19F5 Add error code displacement to pointer 

19F6 Get error message 

19F7 Display 1st charcter 

19FA Numeric check 

19FB Display 2nd character 

19FE Point to 'ERROR' 

1A06 Display it 

1A0D If DE=(40EA) 

1A0E Then power up RESET 

1A14 Display 'IN' line# 

1A17 LoadATAB(l) 

1A19 Return to BASIC command mode ('READY' routine) 

1A1C Return if non DOS 

1A1F Turn off cassette 

1A22 Return to beginning of line or OR. Zero A 



Print A 
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1A25 Point to 'READY' message 

1A28 Output it 

1A2B Get error code 

1A2E Test for SN ERROR 

1A30 Call if SN ERROR 

1A33 Return address 

1A39 Get AUTO flag (AUTO=non zero) 

1A3D Jump for non AUTO 



1A3F Get current line # 

1A43 Output line # 

1A48 See if line # occupied (Carry set) Read to display if match 

1A4B Get an asterisk 

1A4D Print a space or an asterisk 

1A4F Get a space otherwise 

1A51 Display correct character 

1A54 Input into buffer 

1A58 (BREAK) sets carry 



1A5A Turn off AUTO and jump back 



1A60 Get line increment 

1 A63 Add to current line # 

1A69 (BREAK) if oversize line # results 

1A6C (BREAK) if line # ^ 65529X 



1A76 Get prompt 

1A78 Display it 

1A7B Input into buffer 

1A7E Jump back if BREAK 

1A81 Find first character 

1A84 Jump back if null 

1A88 Check for numeric then scan past line # (line # is in DE) 

1A8B Scan 

1A99 Encode input into Level II tokens 

1A9D Flags decide if command mode 

1A9E Encoded statement pointer 

1AA1 Non DOS return 

1AA4 If command mode? 

1AA7 Save line # 

1AA8 Save line length 

1AA9 Zero 

1AAA Reset resume + return flag 

1AAD Scan 1st token 

1AB1 Save line # 

1ABF Save the line # 

1AB5 Search for a matching line # C=none Z=found 

1AB9 If none make room 

1ABF Jump for match 

1AC6 Line length 

1AC7 HL=new end of BASIC program 

1AC9 Make sure brain won't overflow 

1ACD Store end of BASIC program pointer 

1AD0 HL=line to be moved 

1AD3 HL=line # pointer 

1AD6 DE=:|ine# 

1AD9 HL=line pointer (text) 

1AE1 Move new line into place 

1AE6 Loop til line is moved 

1 AE9 Fix line pointers 

1AEC Non DOS return 

1AEF Here's why editing a program destroys variables, etc. 

1AF2 Non DOS return 

1AF5 Back to the farm 



1AFC Fix the line pointers routine 
1B01 Return if end of BASIC 
1B02 Move 
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1 603 Past 

1B04 The next line pointer and line # 

1 B06 Check for end of line 

1B08 Don't quit til you succeed 

1B0A Get the job done 

1B0E Rerun Roadrunner cartoon 



1B2C Search for matching line # in BASIC. DE=desired line #. Get first line from (40A4) 

1B2F Save pointer in BC 

1 B31 Check for end of BASIC program (stay out of junkyards) 

1B35 Return if end 

1B36 Point to current line # 

1B3B HL=current line # 

1B3C Match? Z=yes C=HL'<DE 

1B3D Next line pointer to HL 

1B44 Return if match found (carry set) 

1B46 Return (no such line) 

1B47 Try next line # 



1B49* NEW 

1B4A Clear screen 

1B4D Start of BASIC program 

1B50 TROFF 

1B53 Turn off AUTO 

1B56 Erase program by making its leaders zilch 

1B5A Reset end of program pointer 

1B64 26 variables 

1B6C Set to single precision here 

1B6F Reset resume flag 

1 B74 Reset on error storage 

1B77 Reset CONT location 

1B7A Get End of Memory 

1 B88 Restore DATA pointer 

1 B83 Get end of BASIC location 

1B86 Reset variables pointer 

1B89 Reset arrays pointer 

1B90 Get start of string space pointer 

1 B95 Set stack pointer to start of string space - : 

1B9A SP=string space pointer 

1BA1 Select video Finish printing 

1BA4 Turn off cassette 



1BB3 Print '?' and input from keyboard Go on CR 



1BC0 Encode buffer into tokens 

1BC1 Reset flag 

1BC6 HL=input buffer pointer 

1BCC Get 1st character from buffer 

1BCD If space 

1BD3 If string 

1BD9 If end of line 

1 BEO Get buffer character 

1 BE4 Check for print abbreviation 

1BE6 Get print token 

1BE8 Substitute 

1BEB Get character 

1BEE If non alpha numeric 

1BF2 If numeric 

1BF5 Save input pointer-2 

1BF6 Load reserved word list pointer-1 

1BF9 Save line length 

1BFD Save continuation address 

1BFE End of reserved word list test mask 

1C00 Get character 

The LEVEL II ROM does not use the alternate registers. 
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1C03 If not lowercase 

1C07 If not uppercase 

1C09 Convert to uppercase 

1C0C Save character 

1C0E Point to reserved word list 

1C0F Check for beginning of word (CHAR+80) 

1C10 Try again if not 

1C13 Bump count 

1C14 Get reserved word character 

1C15 Check for end of list 

1C17 Continuation if word not found 

1C18 is it same as buffer character? 

1C19 Next reserved word if not 

1C27 If not GOTO 

1C31 Make upper case if needed 

1C37 Next character 



1C46 If not ELSE 

1C4C If not' 

1C4E Load colon 

1C50 Next 

1053 Load REM (1 for the price of 3) 



1C90 RST18Hcode 



1096 RSTOSHcode 



lOAl* FOR 

1CFB Check for 'STEP' token 

10FD Default value of 1 

1CFF If not 'STEP' 

1D4A '(LINE NUMBER)' TRON usage 



1D5A BASIC interpreter 

1D60 Remove bias 

1 D62 Check for a token 

1D62 Jump if not 

1D6A Double remainder (Required for 2 byte addresses) 

1 D6B Save offset 

1D6C IN B 

1 D6F Point to vectors 

1D72 Locate desired routine address 

1 D73 Low byte to 

1D75 High byte to B 

1D76 Save on stack 



1D78 RST 16 



1D9r RESTORE 

1D92 Get beginning of program 

1D96 Restore DATA pointer 



1D9B Display line number 



1 DAO Check for pause 

1 DA2 Wait for keystroke to resume 

1 DAS Save it 

1DA8 01=BREAK 

1DA9* STOP 

1DD4 Select video 

1DD7 Return to beginning of line 

1DAE* END 
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1DE4* CONT 

1DEB Output CN ERROR if (40F7)=0 



1DF7* IRON AF=TRON 
1DF8* TROFF 



1E00* DEFSTR 

1E03* DEFINT 

1E06* DEFSNG 

1E09* DEFDBL 

1E0B Check for syntax (Letter needed in DEF — ) 

1 EOE Get address of SN ERROR 

1 El 1 Save on stack for possible use 

1E12 SN ERROR if no letter 

1E13 Convert ASCII letter to displacement into table of 26 letters 

1E15 Save displacement in C 

1E16 Save displacement in B 

1E17 Get next character 

1E18 Isit — 

1 El A If not don't use a range 

1E1D Check for letter 

1E20 SN ERROR if not 

1E21 Get displacement 

1E23 Put in B 

1 E24 Get to next character 

1E25 Load ending point 

1E26 Subtract beginning point 

1E27 SN ERROR if variables reversed 

1 E28 Bump count (in case variables same) 

1E29 Save next character pointer and clear SN ERROR vector 

1E2A Load start of variable definition area 

1E2D Zero B 

1E2F Determine ending point 

1 E30 Set variable type flag 

1E31 Bump table pointer 

1E32 Reduce count 

1 E33 Loop til count zero 

1E35 Return next character pointer 

1 E36 Get next character 

1E37 Is it a comma? 

1 E39 If not 

1E3A Get next variable 

1E3B DEF — again 



1 E3D Check for letter in (HL). Set C if not else reset 



1E4F Get character 

1E50 Is it a period? 

1E53 Get period address 

1E57 Jump if period 

1E5A ForRSnO 

1E5B Initialize DE DE=line # on exit 

1E5E Locate 1st character and numeric check 

1E5F Return if non numeric 

1 E60 Save location 

1E61 Save ASCII numeric digit 

1E62 Oversize limit (65520) 

1E65 P re-flight 

1E66 SN ERROR if DE > 1998 

1E69 HL=DE 

1E6B HL=(HL+DE) 

1E6C HL=(HL + DE) + (HL+ DE) 

1E6D HL=(HL + DE + HL + DE) + DE 

1E6E HL=(HL+DE+HL+DE+DE) + (HL+DE+HL+DE+DE)=4*HL + 6*DE=010*DE 

1E6F Retrieve ASCII numeric digit 

1E70 Convert ASCII code to # 

1E72 Save # in E 

1 E73 Zero D so DE=# 

1 E75 Add # to subtotal (HL) 
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1E76 
1E77 



DE=010*DE + # 
Restore pointer 



1E7A* CLEAR 

1E7D Compute the amount as an integer 

1E84 END OF MEM pointer 

1E8D CM ERROR if HL-: DE 

1E9C Load string pointer 



1EA3* RUN 
lEBI* GOSUB 



1EC2* GOTO Evaluate line # 
1ED9 UL ERROR entry point 



1EDE* RETURN 
1EEC RG ERROR entry point 
1 F05* DATA 
1F07* REM 
* ELSE 



1F2r LET 



1F6C* 


ON 


1F70* 


ON ERROR 


1F80 


If UL ERROR 


1F89 


Get error flag 


1F8E 


Get error code 


1F91 


Load into E for error routine 


1F92 


Jump 



1FAF* RESUME Point to error flag 

1FB3 Check it 

1FB4 RW ERROR if zero 



1FF4* 
2003 

2008* 
200B 
2019 
2022 
2025 
2028 
202 B 
202 E 
2036 



ERROR 

UE ERROR entry point 



AUTO 

Save default value of 10 

Save line # increment 

If SN ERROR 

Check for zero increment 

FC ERROR if Z 

Save increment 

Set AUTO flag 

Back to the farm 



2039* IF 
2044 IF THEN 
2060 IF NOT ELSE 



2067* LPRINT Select line printer for output 

207B If expression isn't integer 

207F Point to display 

2082 Compute location 

2083 Save it 

2089 Update cursor 
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206F* PRINT 

2076* PRINT @ Evaluate expression 

2093* PRINT # Write leader and sync byte 

20A5 If PRINT USING 



20AA If PRINT TAB ( 

20B0 If comma 

2085 If semicolon 

20BE If string 

20FE Used to return to beginning of line and zero A 

2137* TAB ( 



2169 Output device T,V,P,-1 ,0,1 



21 6D Turn off cassette if needed 
2171 Select video 



2178 'REDO' message string 



219A* INPUT 

219D REDO 

21A9* INPUT # 

21 AD 250 bytes limit 

21AF POINT 

21 B2 Read a byte 

21 B5 Into the buffer 

21 B7 OR yet? 

21 BB Loop back 

21 BE End of file marker 

21 CO Turn off tape 



21 EF* READ 



227C 'EXTRA IGNORED' string 



22 B6* NEXT 



2337 Evaluate expression PutinARITH : Point HL to address of 1st character Terminate with 00 or, or; 
or : 



2490 Integer divide. Output in single precision 



249F* + 

24A2 MO ERROR if Z 

24A5 IF numeric 

24A8 Check for letter 

24AB IF letter 

24B0 IF + 

24B4 IF . 

24B9 IF - 

24BE IF QUOTE 

24C3 IF NOT 

24C8 IF & 



24CD 
24CF* 



IF NOT ERR 
ERR 



24DB 
24DD* 



IF NOT ERL 
ERL 



24E9 IF NOT VARPTR 
24EB* VARPTR 



2501 IF USR 
2506 IF INSTR 
250B IF MEM 
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2510 IFTIME$ 

2515 IF POINT 

251A IF INKEY$ 

251 F IF STRINGS 

2524 IF FN 



2532' 



2540 ASCII variable to ARITH : Put variable In ARITH and set NTF. Point HL to 1st character Returns with 
HL pointing to next character after variable. 



25 D9 
25 F7* 



RST 20 H 
OR 



25FD* AND 



Returns with DE pointing 



2608* DIM 

260D Locate or create if not found variables: Point HL to 1st character of variable. 

to variable's address and HL pointing to the next character after variable. 

2612 Check for letter 

2615 SN ERROR if C 

261 B If numeric 

2620 If not a letter 

2624 If numeric 

2626 Check for letter 

2629 If numeric 

262E Set return address to 2652 before going 

2633 If % (INTEGER D=2) 

2637 If $ (STRING D=3) 

263B If I (SINGLE D=4) 

2640 If # (DOUBLE D=8) 

273D BS ERROR entry point 



27C9* MEM 
27CB Zero NTF 
27CE Call FRE routine 



27D4* FRE Get free space pointer 
27DD If not a string 
27E5 Get start of string space 
27E9 Get end of string space 
27F1 HL=END - START 



27F5* PCS Get cursor position 

27FB Return via USR reentry HL is position 



27FE* USR 

2801 Next character 

2806 Set reentry point 

280A Get NTF 

2810 Call AF string 

2815 (408E) contains entry point to USR routine 



2831 ID ERROR entry point 



2836* STR$ 

2866 QUOTE 

2891 NTF = string 

28A1 ST ERROR entry point 



28A7 Output a message; 
selected by (409C). 



Point HL to starting address of string; 
Updates line cursor position 



Mark end with a 00 or 22 Output device 
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2A03* LEN 



2A0F* ASC 



2A1F* CHR$ 



2A2F* STRINGS 



2A61* LEFT$ 



2A9r RIGHT$ 



2A9A* MID$ 



2AC5* VAL 



2AEF* INP Get port addresses 
2AF2 Load it 

2AF5 Input from correct port 
2AF8 Return via USR code 



2AFB* 
2AFE 



OUT Get byte 
Output it 



2B0r Step 

2B02 Compute value of expression 

2B06 Convert it to integer 

2B0B MSB to A 

2B0C Check for overflow 



2B0E Get port # 

2B11 Set port # for input 

2B14 Set port # for output 

2B17 Syntax check 

2B1C Compute value 

2B1F Convert to integer 

2B22 FC ERROR if overflow 



2B29* LLIST (same as LIST only output device is line printer) 

2B2E* LIST 

2B2F Get first line pointer 

2B32 Save it 

2B38 BC=Next line pointer 

2B40 Check for end of BASIC program 

2B41 Back to the farm when the chores are done 

2B44 DOS link 

2B5E Output a line # 

2B61 Get a space 

2B64 Output it 

2B67 Call Mr. Spock for his opinion of this message 

2B6A Get buffer pointer 

2B6D Spock's interpretation 

2B70 CR+LF if needed 

2B73 Next line 



2B75 Get character 

2B76 End of text 

2B77 If so 

2B78 Output character to correct device 

2B7B Next character 

2B7C Loop til done 
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2B7E Convert line to human readable form 
2B7F Buffer pointer to HL 
2B85 Line limit 



2B8C Get first character 

2B8D Is it end of text marker? 

2B8E Point to the next character 

2B8F Save in (BC) 

2B90 If end of text 

2B91 If not a token 

2B96 If not REM 

2BA5 Remove bias on token 

2BA8 Load token's word position in BASIC reserved word list 

2BA9 Get pointer to reserved word table 

2BAC Get a byte 

2BAD Check for beginning of a word 

2BAE Point to next character 

2BAF Loop til correct word found 

2BB2 Drop count 

2BB3 Loop back if not correct word 

2BB5 Convert to upper case 

2BB7 Put character in buffer 

2BB8 Bump pointer 

2BB9 Drop limit 

2BBA Jump if end of line 

2BBD Get next character of word 

2BBE Point to next character 

2BBF Check for end of word 

2BC0 Loop back if not end of word 

2BC3 Restore buffer pointer 

2BC4 Next word 



2BC6* DELETE 



2BF5* CSAVE Write leader and sync byte 

2BF8 Evaluate character following CSAVE 

2BFF D3=Header for BASIC tape 

2C04 Write once 

2C04 Write twice 

2C07 Send file name to tape 

2C0B Start of program 

2C0F End of program 

2C12 Get a byte 

2C13 Point to next 

2C14 Send byte 

2C17 Done? 

3C18 Loop til done 

2C1A Off cassette 



See BASIC tape format at end 
of this chapter. 



2C1F* CLOAD 

2C40 TROFF + NEW 

2C47 3 count for header 

2C49 Get a byte 

2C4C D3? 

2C4E If not reset count and try again 

2C50 Loop til header found 

2C52 Get file name (1 byte) 

2C57 If only CLOAD 

2C59 Is tape file name correct? 

2C5A Go bad if not 

2C5C Beginning of BASIC ID HL 

2C5F Load count for 3 zeros which determine end of BASIC tape 

2C61 Read a byte 

2C64 Save it for later 

2C65 Same as original? 

2C66 Same location? 

2C67 NZ means bad 

2C69 Put byte into memory note: Validity is checked before placement 
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2C6A Check for OM ERROR 

2C6D Retrieve byte 

2C6E Check for a zero 

2C6F Point to next memory location 

2C70 If not a zero (end of line) Resets zero count 

2C72 Twinkle Twinkle (end of line) 

2C75 Loop til end of program (3 zeros) 

2C77 Update end of program pointer 

2C74 Point to 'READY' message 

2C7D Display it 

2C80 Turn off cassette 

2C83 Beginning of BASIC to HL 

2C86 Save it 

2C87 Return to farm after fixing addresses 



2C8A Point to 'BAD' message 

2C93 Give the news 

2C90 Back to the farm 

2C93 Display file letter 

2C96 3 count for end of program test 

2C98 Read byte 

2C9B Zero? 

2C9C If not reset count try again 

2C9E Loop til 3 zeros 

2CA0 Search for next program 

2CA3 Try next program 



2CAA* PEEK Evaluate expression as integer 

2CAD Get byte 

2CAE Return via USR code 



2CA5 'BAD' message string 



2CB1* POKE Compute address 

2CB4 Save it 

2CB5 Check syntax 

2CB6 Next 

2CB7 Compute value of operand 

2CBA Retrieve address 

2CBB POKE it in 



2CBD* USING 
2E49 Print a plus if D non zero 



2E60* EDIT Get line 

2E64 DE^Iine # 

2E66 Put line # in storage 

2E6A Search for matching line # 

2E6D UL ERROR if not found (NO) 

2E70 Address of line to HL 

2E72 Point to line # 

2E74 Put line # in BC 

2E78 Save line # on stack 

2E79 Convert line to ASCII 

2E7E Output line # 

2E81 Output blank 

2E86 Point to buffer 

2E89 Send cursor 

2E8E Save buffer pointer 

2E91 C=length of line 

2E95 Search for end of line 

2E98 Zero A 

2E99 Zero D 

2E9B Get a key 
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2EBB (BACK SPACE) 

2EC0 (ENTER)? 

2EC7 (SPACE)? 

2EC9 Upper case? 

2ECB Change to lowercase 

2ECF Q uit? 

2ED4 L ist line? 

2ED9 S earch? 

2EDD I nsert? 

2EE2 D elete? 

2EE7 C hange? 

2EEC E nd? 

2EF1 X tra? 

2EF6 K ill? 

2EFA H ack? 

2EFF A gain? 

2F01 Not valid character if NZ get another 

2F07 Start over 



2F0A Space routine 



2F16 KILL routine 
2F1C Search routine 
2F1 D Get the character 



2F40 Output area pointed by HL 



2F4A DELETE routine 
2F4D Print'!' 
2F5F Print'!' 



2F65 
2F68 
2F6C 
2F71 
2F72 



Change routine 
Get character 
Print it 

Reduce count 
Loop til done 



2F75 
2F78 
2F7D 
2F84 
2F88 
2F8D 



HACK routine 
XTRA routine 
Insert routine 
Back space 
CR? 
Escape? 



2FE0 Leave edit mode after displaying line 



2FF6 Quit routine 



3000- Reserved there is nothing here no memory at all 

37DE DOS communication status address 

37DF DOS communication data address 

37E0 Interrupt latch address 

37 El Disk drive select latch address 

37 E2 Cassette drive latch address 

37E8 Line printer port address 

37EC Floppy disk controller address 
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KEYBOARD MEMORY 





COL# = 


1 


2 


3 


4 


5 


6 


7 




3801 ROW 


@ A 


B 


C 


D 


E 


F 


G 




3802 ROW 1 


H 1 


J 


K 


L 


M 


N 







3804 ROW 2 


P Q 


R 


S 


T 


U 


V 


W 




3808 ROW 3 


X Y 


Z 














3810 ROW 4 


I 


" 


# 


$ 


% 


& 


' 






1 


2 


3 


4 


5 


6 


7 




3820 ROW 5 


( ) 
8 9 


* 


+ 


-c 


- 


>• 


? 

/ 




3840 ROW 6 


ENT CLS 


BRK 


T 


I 


t" 


^ 


SPC 




3880 ROW 7 


SHIFT 














3C00- 


Video memory 
















3FFF 


















4000 


RST 8 
















4003 


RST 10 
















4006 


RST 24 
















400C 


RST 32 
















400 D 


RST 40 
















400 F 


RST 48 
















4012 


RST 56 
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4015 


Device type 
















4016 


Driver address (intercept here for deboi 


J nee) 












4018 



















4019 



















401 A 



















401 B 


'K' 
















401 C 


'1' 


















.-Vinpn pnMTRni ri o'^k' 














401 D 


Device type 


f\ji\ 














401 E 


Driver address 
















4020 


Cursor position in memory (2 bytes) 














4022 


Cursor character 
















4023 


'D' 
















4024 


'0' 
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4025 


Device type 


l_ll_\^ V_(I\ 














4026 


Driver address 
















4028 


# lines per page l^ept here 














4029 


Current line # printer is on 














402A 

















j 


402 B 


'P' 
















402C 


'R' 




















4036- 7 byte work area for keyboard routine 
403C 



403D Print size flag 0=64 characters 8=32 characters Also used in tape output to prevent resetting size 

during an OUT 255 
403E- Not used in Level II non DOS (good place for debounce routine) 
407 F 

TIME$ STORAGE AREA 

4040 25 MS ticks 

Seconds 

Minutes 

Hours 

Year 

Day 

Month 
Calculate remainder In floating point division 



4041 

4042 

4043 

4044 

4045 

4046 

4080- 

408D 

408E 



Entry pointer to USR routines 



4090- Random number generator secondary seed 
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4092 

4093 INP routine 

4094 Port # 

4096 OUT routine 

4097 Port # 

4099 INKEY$ storage (and SHIFT @ Pause release key) 

409A Error code storage for RESUME use 

409B Printer line width counter (for pretty printing!) 

409C Device type flag -1=TAPE 0=VIDEO 1=LPRINTER 

409D Print # use 

40A0 Start of string space pointer 

40A2 Current line being processed 

40A4 Start of BASIC program pointer 

40A6 Line cursor position used for tab 

40A7 Input buffer pointer 

40AA LSB of seed for RND 

40AB LSB of seed for RND Also used in RANDOM 

40AC MSB of seed for RND 

40AE Flag byte for DIM statement 

40AF NTF (number type flag) 2=INTEGER 3=STRING 4=SINGLE 8=D0UBLE 

40B0 Compressor flag for 1 BCO 

40B1 Top of BASIC memory pointer 

40B3 String work area pointer 

40B5 String work area 

40D3 String length 

40D4 Start address of string/next string address 

40D6 Memory size 

40D8 Comma control matrix for PRINT USING 

40DC DIM use 

40DE PRINT USING 

40DF Entry point storage for SYSTEM tapes 

40E1 AUTO flag O=not AUTO Else AUTO 

40E2 Auto increment 

40E4 Auto line number 

40E6 Encoded statement pointer 

40E8 Stack pointer pointer 

40EA Line number of error in RESUME 

40EC Line number for edit and list when you use period instead of number 

40EE Used during RESUME 

40F5 Last line # executed 

40F7 Used to CONT 

40F9 Simple variables pointer 

40FB Arrays pointer 

40FD Free space 

40FF Data pointer 

VARIABLE TYPE DECLARATION TABLE 

4101- 2=INTEGER 4=SINGLE 8=D0UBLE 3=STRING 

410A 

41 IB TRON FLAG 0=TROFF 



NOTES ON THE EDITOR ASSEMBLER 

4113 Top of memory pointer 

4115 Start of buffer pointer 

41 C3 Start of symbol table pointer 

4301 Keyboard driver entry address pointer 

4309 Video driver address pointer 

431 1 Lprinter driver address pointer 

45AA Lprinter driver (patch your printer here) 

4905 Command table (have a feast) 

4925 B command (go someplace new) 
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ARITH 





INTEGER 


SINGLE 


DOUBLE 


41 ID 






LSB 


411E 






LSB 


411 F 






LSB 


4120 






LSB 


4121 


LSB 


LSB 


LSB 


4122 


MSB 


LSB 


LSB 


4123 




MSB 


MSB 


4124 




EXP 


EXP 



ARITHEX 

4127 LSB LSB LSB 

4128 MSB LSB LSB 

4129 LSB LSB LSB 
41 2A EXP LSB 
412B LSB 
41 2C LSB 
412D MSB 
412E EXP 



4125 Sign Byte 

412F Sign Byte 

4130 Line # work area pointer 

DOS ENTRY POINTS 

414A- Additional section of RAM like ARITH and ARITHEX for division and trig functions. Does not haveasign 

4151 byte 

4152 CVI 

4155 FN 

4158 CVS 

415B DEF 

415E CVD 

4161 EOF 

4164 LOG 

4167 LOF 

416A MKI$ 

416D MKS$ 

4170 MKD$ 

4173 CMD 

4176 TIME$ 

4179 OPEN 

417C FIELD 

417F GET 

4182 PUT 

4185 CLOSE 

4188 LOAD 

418B MERGE 

418E NAME 
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4191 KILL 

4194 & 

4197 LSET 

419A RSET 

419D INSTR 

41 AO SAVE 

41A3 LINE 

Level II and Disk BASIC relays from ROM routines (this is the area to modify to intercept BASIC routines) 

41 A6 Error code index relay 

41A9 USR relay 

41AC Command mode at initialization 

41AF Fill BASIC keyboard buffer relay 

41 B2 Command mode relay at EDIT/DIRECT switch 

41 B5 Command mode relay at termination before initialize 

41 B8 Command mode relay before restart 

41 BB NEW and END relay 

41 8E Relay to change default in routine to transfer control from OUTPUT (032A) back to device held at 409C 

41 CI OUTPUT relay device transfer 

41 C4 Keyboard routine relay 

41 C7 RUN relay 

41CA PRINT relay 

41CD secondary PRINT relay 

41 DO Relay for carriage return output (add your linefeed this way!) 

41 D3 PRINT TAB (relay) 

41 D6 INPUT relay 

41 D9 MID$ relay 

41 DC Secondary READ relay 

41 DF LIST relay (disable LIST here!) 

41 E2 SYSTEM relay (put E9 here and get AUTO start!) 



INPUT BUFFER AREA 

I/O Buffer 
41 E5 Buffer control bytes 
41E8- Keyboard Buffer (Level II only) 
42E7 
42E8 Separator byte for Level II 



42E9 BASICally only the beginning! 
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"APE FORMATS 



LEADER 



D3 
XX 



D3 D3 

LSB 
MSB 
LSB 
MSB 



XX ... XX 



00 



BASIC TAPE FORMAT 

256 zeros followed by an A5 sync byte 

BASIC header 
File name 

Next line's address 

Pointer 
Line number 

Line contents 
End of line marker 



00 00 



End of file markers 



LEADER 

55 

XX XX XX XX XX XX 

3C 

XX 

LSB 

MSB 

XX ... XX 

XX 



SYSTEM TAPE FORMAT 

256 zeros followed by a A5 sync byte 

System format header byte 
6 character file name 

Data header 

Data length 00=256 bytes 

Loading 

Address 
Line itself 
Checksum of line bytes and load address 



78 

LSB 

MSB 



End of file marker 
Entry 

Address 



LEADER 

D3 

XX XX XX XX XX XX 

#1 #2 #3 #4 #5 

20 

XX ... XX 

CD 



EDITOR ASSEMBLER SOURCE TAPE FORMAT 

256 zeros followed by an A5 sync byte 

Source header 
File name 

Line # in ASCII (bit 7 is set) 
Data header 

Line (128 bytes maximum) 
End of line marker 



1A 



End of file marker 



LSB 

MSB 
LSB 
MSB 



XX ... XX 



00 



BASIC RAM STORAGE FORMAT 

Address of 

next line 
Line # in 

binary form 
Line contents 
End of line marker 



00 00 



End of file marker 
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HEX MEM by John T= Phlllipp, W„D. 

If you are seriously investigating Level II ROM routines, 
you will need a way to exannine memory. This particular 
monitor is quite limited, as it will not save a machine 
language program, set breakpoints, execute, or display 
and access the Z-80 registers. If you are using a disk 
system, you will find DEBUG more useful. In a tape 
system, we recommend STAD from The Software 
Exchange. However, this monitor will provide several 
memory examination capabilities in the absence of a 
more sophisticated monitor. 

HEXMEM is a BASIC program which duplicates some 
of the functions of machine language monitors like TRS- 
DOS DEBUG and the RSM-2 monitor by Small Systems 
Software. Although it doesn't support all of the functions 
of these sophisticated monitors (it does not access the Z- 
80 registers, for example), it does enable the user to 
convert hexadecimal numbers, display memory in hex or 
ASCII in a format similar to the machine language 
monitors, modify memory, enter machine language 
programs directly, load other BASIC programs into 
memory with HEXMEM and save HEXMEM and other 
BASIC programs on tape. 

The codeforHEXMEMtakes2,399 bytes, leaving 13,173 
bytes for the other programs in a Level II, 16KTRS-80. It is 
densely packed into line numbers 1-28 without REM 
statements. This makes the program logic hard to follow, 
but was necessary since any program loaded into 
memory with HEXMEM must have line numbers greater 
than HEXMEM itself. HEXMEM can reside in memory with 
any BASIC program whose line numbers begin with line 
30 or higher. 

Commands — all commands are single letters. When 
HEXMEM asks COMMAND? type the command letter 
(ENTER). HEXMEM will return to COMMAND? after the 
command has been executed. 



SUMMARY OF COMMANDS 



H— Hexadecimal 

D— Decimal 

G— Graphics 

M— Memory Dump 

A— ASCII Dump 

E— Edit 

O— Object Code 

L— Load 

C— Combine 

S— Save 



-Converts hex to decimal value 
-Converts decimal to hexadecimal 

value 
-Converts any hex or decimal 

value to ASCII character 
-Displays block of memory as hex 

values 
-Displays block of memory as 

ASCII characters 
-Displays and edits the contents of 

a memory location 
-Enters machine language 

programs 
-CLOADs a BASIC program into 

memory with HEXMEM 
-MERGES a BASIC program on 

tape with one in memory 
— CSAVEs a BASIC program and 

HEXMEN on tape 



EXPLANATION OF COMMANDS 

H — Hexadecimal 

This routine will convert any hexadecimal numberupto 
10 digits to its decimal equivalent, although very large 
numbers will be displayed in decimal by exponential 
notation. Leading zeroes need not be entered 0AF2 and 
AF2 will be converted the same way. Type the 
hexadecimal number (ENTER). 

D — Decimal 

This routine will convert any decimal number from to 
65, 535to its hexadecimal equivalent. Larger numbers will 



not be converted as the routine will not produce a 
hexadecimal number more than 4 digits in length. Type 
the decimal number (ENTER). 

Addition and subtraction of hexadecimal numbers may 
be done using the H and D commands providing the 
difference is not less than nor the sum greaterthan FFFF 
hex (65,535 decimal). Use the H command to convert both 
numbers to decimal, perform the desired operation, then 
use the D command to convert the result to hexadecimal. 

G — Graphics 

This routine will convert a hexadecimal number in the 
range to FF or a decimal number in the range to 255 to 
its ASCII character, graphics character, or space 
compression code representation. 

Hexadecimal numbers need only be typed, then 
(ENTER) but decimal numbers must be followed by an X 
(enter as 127X, for example). If the X is omitted, HEXMEM 
will consider the number to be hexadecimal and an 
erroneous conversion will result. 

M — Memory Dump (HEX) 
see also A — ASCII Dump 

This routine will display the contents of any block of 
memory in hexadecimal. 

HEXMEM asks for ADDRESS (HEX)#1? Type any 
hexadecimal address from to the top of memory (4FFF 
for a 4K machine, 7FFF for a 16K machine) then (ENTER). 

Use the D command to convert decimal addresses into 
hex for the M command. 

HEXMEM then asks for ADDRESS (HEX)#2? Type a 
hexadecimal address which is larger than ADDRESS 
(HEX)#1. If no ADDRESS (HEX)#2 is typed, and only 
(ENTER) is pressed, HEXMEM will display from 
ADDRESS (HEX)#1 to the top of memory. 

NOTE: HEXMEM is programmed for a 16K machine. If 
you have more or less memory line 8 in the program must 
be changed: 

If H2$ = "" THEN D6 = 

32767(16K) 
49151 (32K) 
65545(48K) 
20479( 4K) 

HEXMEM will display memory in lines of 16 bytes each. 
The address of each line is on the far left of the screen. For 
example, if the starting address is 4FB3 HEX the screen 
will display: 

4FB0: XX XX XX XX XX XX XX XX 

XX XX XX XX XX XX XX XX 
4FC0: XX XX XX XX XX XX XX XX 

XX XX XX XX XX XX XX XX 

and so on, where XX is any hexadecimal number from 00 
to FF. The address of the first byte of each line will always 
end in 0. 

To stop the dump at any point, press any key on the 
keyboard. To continue the dump, press any key except K. 
Pressing K will return to COMMAND? 

A — ASCII Dump 

This routine will display the contents of any block of 
memory as its ASCII equivalents. Control characters and 
graphics characters are displayed as periods (.). (The 
ASCII equivalent of any HEXordecimal digit (00-255) can 
be displayed using the G command.) 

The ADDRESS (HEX)? prompts should be answered in 
the same manner as for the M command, and the memory 
display is in the same 16 byte line format. 

The A command is particularly useful for searching the 
memory for a BASIC program. Try displaying addresses 
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1600 to 1700 HEX using this command. This is the area 
where the Level II BASIC ROM stores its command table. 
HEXMEM itself resides in addresses 42EA to 4C48 HEX 
(17130 to 19528 decimal) and can be displayed by the A 
command. 

E — Edit Memory 

see also O - Object Code Enter 

This routine is used to modify a single memory location 
by replacing its current value with a new one. 

HEXMEM asks ADDRESS TO CHANGE? Type in any 
Hex or decimal address from to the top of memory, then 
(ENTER). Decimal numbers must be followed by an x, or 
HEXMEM will consider them to be hexadecimal and 
errors will result. 

The current contents of that memory location will be 
displayed in Hex and decimal. 

HEXMEM will then askforthe NEW VALUE? Type in the 
desired value from to FF Hex or 0-25 decimal. Again, 
decimal numbers must be followed by an X. Then press 
(ENTER). The contents of the memory location will be 
erased, the new value will be entered and HEXMEM will 
return to COMMAND? 

Pressing (ENTER) after the NEW VALUE? prompt 
leaves the contents unchanged and returns to 
COMMAND? This may be used to PEEK at one memory 
location rather than using the M command, especially if 
you want to know the address contents in decimal. 

Addresses from to 3000 HEX (0 to 1288 decimal) 
comprise the Level II ROM and cannot be changed by the 
E command. Addresses from 3001 to 42E8 HEX (12290 to 
17128 decimal) are RAM and may be changed although 
they are used by Level II BASIC for housekeeping and 
Input and Output. 

Changing them may cause the system to crash. Try it 
though — there is no danger to the TRS-80 hardware from 
the keyboard. At worst, you may have to press RESET and 
re-load HEXMEM. 

O — Object Code Enter 

This routine is similar to the E command and is used for 
modifying a consecutive series of memory locations as 
when entering a machine language (object code) 
program. 

After the starting address is entered and its contents 
changed with a new HEX (or decimal plus X) value, 
HEXMEM advances to the next memory location, displays 
its value in HEX and decimal and accepts the new value. 
Pressing (ENTER) with no value leaves the memory 
location unchanged and advances to the next. 



Typing K for the value leaves the memory location 
unchanged and returns to COMMAND? 

L ~ Load BASIC Program 

This routine allows a BASIC program to be CLOADed 
into memory co-resident with the HEXMEM monitor. 

In order to CLOAD a BASIC program without erasing 
the program in memory (HEXMEM), some PEEKing and 
POKEing is necessary. HEXMEM does most of the work. 
However, after the CLOAD is complete, two more memory 
locations must be POKEd. These values — POKE 16548, 
233 : POKE 16549,66 — should be typed in and (ENTER) 
pressed. The combined program (HEXMEM + BASIC 
program) may then be LISTed, RUN, CSAVEd (with the S 
command), EDITed, etc. 

The line numbers of the BASIC program must be higher 
than those of HEXMEM, or HEXMEM will be erased during 
the CLOAD HEXMEM uses line numbers 1-29 so the 
BASIC program should start at line 30 or higher. 

C -- Combine BASIC Programs 

This routine will MERGE a BASIC program on tape with 
one in memory. As with the L command, the program on 
tape must have higher line numbers than the one in 
memory, or the program in memory will be erased during 
the CLOAD. 

The same two memory locations must be POKEd after 
the CLOAD as with the L command. Follow the prompts 
on the screen. 

The C command will enable frequently used sub- 
routines to be stored on tape and then added to new main 
programs as needed, saving the trouble of retyping them. 

After the programs are combined in memory, type 
DELETE 1-29 (ENTER) to erease HEXMEM. The 
combined program may then be LISTed, RUN or CSAVEd 
on tape. 

S — Save 

This routinewillCSAVE HEXMEM and any other BASIC 
program in memory on cassette tape. 

This is an example of how BASIC stores program text. 
The ASCII dump and the HEX dump are looking at the 
same block of memory -- address. 



108 REM * THIS IS LINE 166 

lie •' LINE lie - ^REvifiTiai f« rem * 

120 PRINT "THIS IS LIW 120 ? " 
REM 



COHMBND? M 

fiDORESS (HEX) il? 7216 

ADDRESS (HEX) #2? 725F 

7218: 41 31 24 3fl m 22 41 22 

7220: 20 54 48 49 53 20 49' 53 

7230: 30 W 5C 72 6E W 3fl 93 

7240: 31 30 20 20 20 41 42 42 

7250: 4E 2i 46 4F 52 20 52 45 



m 32 72 64 m 93 28 2fi 

20 4C 49 4E 45 20 31 30 

FB 20 4C 49 4E 45 20 31 

52 45 56 49 41 54 49 4F 

4D 20 2fl W 7F 72 78 W 



CCWmWD? 



« ICX DIM* (M CC*^ti» »_ 
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COMMflND? fi 

ADDRESS <HEX) il? 7218 

ADDRESS (HEX) #2? 725F 

7218: fl 1 $ : . " R " . 2 R D . . * 

7220: THIS IS LINE 10 

7230: . \ R N . : . . LINE 1 

7240: 10 - RBB REVIflTIO 

7250: N FOR RE H *._RX. 

COMMfiND? « flSCII DUMP <fi COMMfiND) »_ 

1 CLEfiR100:CLS:DlMH<16), Hf <16). X$<16) :X|:="012:<456789flBCDEF" :DflTfi 
"0". "i'S "2". "3", "4". "5'% "6". "7". "8", "9". "fl". "B". "C", "D". "E". "F" : 
V$="28":U$="HIGHEST LINE IN MEMORY" :D$="'' :Tf=" TO ERfiSE HEXMEM. T 
VPE: DELETE 1-28 <ENTER>" : " 

* HEXMEM VER 1. 1 * 

2 P=:0 : 0=0 : !MPUT"COMMflM)"i Cf : IFCf ="H"THEN3ELSEIFC$="D"THEN4ELSEIF 
C|:="G"THEW5ELSEIFC*="M"THEN8ELSEIFCf="fl"THENP=l:G0T08ELSEIFC$="E 
"THEN15ELSEIFC$=:"0"THEN0=l:Q0T015ELSEIFC$="L"THEN24ELSEIFCf="C"T 
HFNV$=! It : D*=T$ ■ G0T024F1. SF J FC$= " s " THFN28F1 SFPR 1 NT " + J N VRi T D+ " ■ hOTD 

3 INPUT"HEXfiDECIMflL"jfl$:fl$="0"+fi$:GOSUB19: PRINT" DECIMfiL =";D:G 
0T02 

4 INPUT"DECIMflL";D:G0SUB21:PRINT" HEXftDECIMflL = ";H$<i)+H$<2>+H 
$<3)+H$<4>:G0T02 

5 INPUT"HEX OR DEC (TYPE X AFTER DECIMAL)"; M$: !FRIGHT$<M$, 1>0"X 
"THENfl$=M$ : 60SUB19 : MM=DELSEMM=VAL<M*> 

6 IFMM<32THENG*="C0NTR0L CHARACTER "ELSE I FMM=320RHM=128THENG$="SP 
RCE"ELSEIFMM<i92THENGf=CHR|:<MM>ELSEIF«l1<=255THENG$="TflB FOR"+STR 
$<MH-192)-f" SPACES" 

7 PRINT" ASCII CHARACTER = ";6$:G0T02 

8 Hlf =" " : H2$=" " : INPUT"ADDRESS (HEX) il"i Hl$ : fl$=Hl$ : G0SUB19 : GOSUB 
27 : D5=D : INPUT" ADDRESS (HEX) #2"; H2$ : A$=H2* : 60SUB19 : D6=D : LF=1 : W=D 
5:PRINTH1*" : "; : IFH2$=""THEND6=32767 

9 F0RM=D5T0D6 : G*=I MKEVt : IF6$<>" "G0SUB26 

10 I FLF=17THENLF=1 : W=W+16 : PR I NTCHR* ( 29 ) : D=W : G0SUB21 : PR I NTH$ ( 1 ) i H 
l(2)jH*(3)iH*(4);": "; 

11 M1=M: IFMl>32767THENMl=f11--65535 

12 D=PEEK(M1) : I FP=1THENG0SUB23ELSEG0SUB22 

13 PRINTH$(3)iHf(4)>" "i :LF=LF+1: IFLF=9PRINT" "; 

14 rCXTM: PRINT :G0T02 

15 INPUT"ftDDRESS TO CHAMjE (I«X OR DEC - TYPE X AFTER DEC)";M$:I 
FM$="K"THENG0T02ELSEIFRI6HT$(M$, 1)<>"X"THENA$=M* : G0SUB19 : MM=DELS 
Er«=¥fl.(Mf) 

16 PRINT"CURRENT CONTENTS: "; : IFMM>32767THENMM=MM-65535 

17 CC=PEEK(MM) :D=CC:60SW22:PR!NTH$(3)+H$(4)J " mX (^ CC; "DECIM 
fl_)":Mf="":PRINT:!f«JT"rcy VALUE (HEX OR DEC - TYPE X AFTER CCC) 
"iM$:IFMf=""TttNNN=CCELSEIFM$="K"THEWM}T02ELSEIFR!GHT$(M^.l)O"X 
"THENA$=M$ : G0SUB19 : NN=DELSE»I=VAL(I1$) 

18 Pa(EMM.NN:IF0=8THEN60T015ELSEPRINT"NEXT ADDRESS - "; :lf1=MM+l: 
GOTOiS 

19 D=0:K=l:FC«J=lTa_EN(Af)-l:K=K*16:rCXTJ:K=INT(K+. 01):F«I=1TOL 
EN(A$) :F0RJ=1T016: IFWD*(Af, L l)=MIDf (X$. J, l)THEf«0T02«LSErCXTJ 
2e D«D+K*(J-l):K=K/16:WXTI:RETl«N 

21 H(l)=INT(D/4096) :Dl=D-H(l)*4896:H(2)=INT(Dl/256) :D2=D1"H(2)*2 
K : H(3)=!NT(D2/16) : D3=D2"H(3)*16 : H(4)=D3 : F0RX=1T04 : RESTC«E : F0RZ= 
0TOH(X) : READH$(X) : ttXTZ : ttXTX : RETURN 

22 H(3)=INT(D/i6) :Di=D-H(3>*i6:H(4)=Dl:FC«X=3TO4:REST«E:FC«Z=0T 
OH(X> : RE«:*I$(X) : rCXTZ : fCXTX : RETWN 
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22 H$<3:>=" ":IFD<32THENH$<4>=". " :RETUR^ELSEIFD>127THENH$<4>=^ ": 
RETURNELSEH$ < 4 ) =CHRf ( D > : RETURN 

24 PRINT"BE SURE LINE NUMBERS ARE GREATER THAN "jV$;". ":PRINT"WH 
EM TFIPE RECORDER STOPS. TVPE: " :PRINT"POKE 16548.233: POKE 16549. 
66 <ENTER>":PRINTDf: PRINT :PRINT"PRESS <ENTER> NHEN RERDV TO * 

CLOftD *":INPUTfil$ 

25 IFPEEK<16633»=2THENP0KEi6548. PEEK(16633>-2 : P0KEi6549. PEEK<16 
624) : CL0flDELSEP0KE16548. PEEK < 16622) +254 : P0KE16549. PEEK(16624)-i : 
CLOfiD 

26 G$=INKEV* : IFG$=" "THENG0T026ELSEIF6$="K"THENPRINT : G0T02ELSERET 
URN 

2? IF<D<16)OR(H1$="")THEND=0:H1$="0800":RETURNELSEIFD/16=IMT<D/1 

6 ) THENRETURNELSED=D- < D- 1 NT ( D/16 ) *16 ) : Q0SUB21 : H1*=H$ < 1 ) +H|: < 2 ) +H$ < 

2 >+H$<4): RETURN 

28 CLS:PRINT"PRESS <ENTER> WHEN REfiDV TO * CSflVE *" : INPUTfllt:C 

SftVE"fl" 



One HEX number of 2 digits 00 - FF HEX can store the 
numbers 0-255 decimal, the same as 1 8-bit binary byte. 

By looking at the LISTing, and comparing it to the HEX 
and ASCII dump one can learn how BASIC stores the 
program lines. 

00 is used by BASIC as the terminator of every line. 
Following 00 are 4 bytes (4 HEX digits) which are 
housekeeping for BASIC. The first 2 bytes are the memory 
address of the start of the next line, given with the least 
significant byte first, most significant byte last. 

At location 7219, the address bytes are 7232 meaning 
that the next program line (line 110) starts at memory 
address 7232. Looking at the HEX dump, it is seen that the 
terminator of line 100 (00) is at address 7231 and 7232 is 
the beginning of the next line. 

The next two bytes 64 00 in addresses 721B-721C are 
the BASIC line number of the line given in HEX least 
significant byte first -00 64 HEX equals 100 decimal (use 
the H command). This is why BASIC line numbers cannot 
exceed 65,535. 2 bytes can only store up to FFFF HEX. 

Lines 110 (006E HEX), 120 (0078 HEX), 130 (0082 HEX) 
up to line 200 (00C8 HEX) of the demonstration program 
may be identified the same way as line 100 was. 

If the byte following the line terminatorOO isO (meaning 
address of the start of the next line is 0) BASIC assumes it 
has reached the end of the program. This is as far as the 
program can be LISTed on the screen, even though the 
complete program remains in memory and can be 
accessed by the A or M commands. 

After the four housekeeping bytes, BASIC starts the 
text of the line. To conserve memory space as 1 byte 
abbreviations: 

80 HEX = END 

81 HEX = FOR 
8A HEX = DIM 
87 HEX = NEXT 
8D HEX = GOTO 

91 HEX = GOSUB 

92 HEX = RETURN 

93 HEX = REM 

D5 HEX = = (Equals sign) 
and so on. 

The rest of the line is stored as the HEX equivalent of the 
decimal ASCII character codes. The complete list (in 
decimal which can be converted to HEX by the D 
command) may be found on page C/2 of the LEVEL II 
BASIC REFERENCE MANUAL. 
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08 — IF are the cursor control codes, 

20 — 7F are ASCII character codes 

80 — BF are graphic codes 

CO — FF are space compression codes (tab 0-63 spaces) 

This method of storage and housekeeping explains the 
"garbage" seen on the screen after a bad CLOAD is 
LISTed. 

If any byte of the code in memory has been changed to 
00, BASIC assumes the next 2 bytes are the starting 
address of the next line, and the 2 bytes after that are the 
line number. Following bytes are LISTed as the full 
printing of the command abbreviations (see BASIC 
TOKENS). This mess is complicated by the fact that HEX 
digits 08-IF are moving the cursor all over the screen and 
causing the commands to be printed anywhere at 
random. 
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Z-80 Disassembler 
by George Blank 

Perhaps the most useful form in which this book could 
have been printed would have been with a complete 
disassembled and commented line listing of Level II 
BASIC. The cost of purchasing publishing rights for this 
was prohibitive, so we are instead providing a way foryou 
to malce your own, if you have a Level II BASIC computer. 

This program will disassemble the full Z-80 (trademark 
of Zilog Corporation) set of amost 700 instructions. In 
addition, the ability to construct a symbol table and 
reserve data blocks in the disassembled listing has been 
added for a truly useful listing. 

Since one of the bestfeatures of BASIC programming is 



the ease with which programs may be modified forspecial 
uses, many remark statements have been included. 
Particular routines that users may wish to modify include 
the automatic printout routine in Line 62 and the count- 
and-stop routine in Line 69. 

The automatic printout routine works by testing the 
printer-ready status bit at Location 14312. If it finds the 
value 63, indicating that the printer is on and ready for 
data, it sends data to the printer. If you have no printer, 
you may wish to remove this routine, and if your printer 
does not use the handshake at 14312, you may wish to 
change the print option. 

If you want a continuous printout, you may simply 
delete Line 69, or you may modify the counter (C is the 
number of lines printed) to fit the page size on your 
printer. For example, you might use: 



IF (PEEK(14312)=63 
ENTER) ";X$iC=0 



AND 015) OR O60 THEN INPUT" (PRESS 



If you wanted to stop after 15 lines on the screen or 60 
on the printer. 

The line numbers beginat30to make iteasytocombine 
this program with HEXMEM. Then you could either patch 
the programs with a GOTO from HEXMEM or use the 
command "RUN 30" to use the disassembler. By 
removing all the REM statements, you may still be able to 
load another BASIC program above HEXMEM and the 
disassembler, as long as there are no conflicts in the 
numbering of the programs. 

If you wish to allow for the entry of hexadecimal 
addresses for the start and finish of your disassembly, 
there is a conversion routine from hex to decimal at Lines 
178 - 186. The routines to convert decimal to hex are 
located at Lines 70, 73-78 and 84. If you wish to print 
displacement addresses in $ or + and - form, the routine 
currently used to calculate hex address jumped to is in 
Lines 80 - 82. 



decimal entry and enter first the memory location and 
then your chosen symbol. Table entry will end when you 
fail to enter a value or symbol, or when your address 
exceeds the ending point you have chosen for your 
symbolic dump. If you wish to print the symbol table after 
your memory dump, add a flag equal to the value of S in 
Line 176 just before the final GOTO (SE=S), change Line 
63 to: 

63 if M> = ME then 192 



To use the symbol table, answer "Y" when asked if you 
wish to construct a symbol table. Then choose hex or 



and add a routine to take the addresses stored in the array 
MS(0) to MS(SE), convert them to hexadecimal if you 
wish, and print the corresponding symbol from the array 
AS(0) to AS(SE). If you really want to be fancy, add a 
routine to ignore the data blocks on the first pass through 
the table, then print the data blocks after the symbol table. 

The symbol table routine reserves the symbols "DATA" 
and "EOD" for the start and finish data blocks. If the 
program, during execution, comes across the symbol 
"DATA", it sets DAtol in Line 165andthe program jumps 
to the data routine at 188 to 191 from Line 72. Then, once it 
comes across the symbol "EOD", it sets DA to 2 in Line 
165 and back to (Data flag off) in Line 188. 

30 REH * 2-30 DISfiSSEMBLER * COPVRIGHT <C:) 1988 GEORGE ElfiNK * 

11 aEflR1000DEFSTRfl;DEFINTB-L. N-ZDIMflH(15) Dlllfi'iSSe) 

12 FORB=0TO15 ■ REfiDftH<B) ■ rCMT : FORB=0TO7 : REfiDfiD(B) : NEXT • FORB=0TO9 • REfiDBP(B) • NEXT ■ FORB=0TO7 • REftDftI <B) • N 
EXT : FORB=0TO7 ■ REftDfiF (B) : NEXT • FORB=0TO7 : RERDflB(B) • NEXT : fiC(2)="HL" ■ fiC:{3)="fl" 

11 REM * ftH(0-15) * 

24 DflTfl 0, 1; 2, 1, 4, 5, 6, 7.. 8, 9, R, B, C, D, E, F 

35 REM * mm-?) * 

36 DflTR B,C..D,E,H,L(HL).fl 

37 REH * W*<0-15) t 

38 DflTfl BC. DE, HL, SP, flF, (BO, (DE), (HL). (SP), flF' 

39 REM * fll<@-?) ^ 

40 DflTfl flDD, ADC, SUB, SBC, AND, XOR, OR, CP 

41 REM * ftF(0-7> * 

42 DflTfl NZ, Z, NC, C, PO, PE> P, M 

43 REM * flfl(0-7) 'f' 

44 DflTfl RLC, W£., RL, RR, SLfl, SRfl, SRL, SRL 

45 REM * INPUT ADDRESSES TO DISASSEMBLE * 

46 C=0:C:LS:PRINT"Z-80 DISASSEMBLER" INPUT" START I Wj ADDRESS (DECIMflL)"iMB:If«JT''EII)ING ADDRESS"; l€:M= 
i«:INPI.IT"DO VOU WANT TO CREATE A SVMBOL TABLE".;A:IFLEFT$(A,1)="V"G0SUB169 

47 A="'':G0T065:REM * CONTENTS OF 4 BVTES OF MEMORY * 

48 D=PEEK(N1) :Di=PEEK(N2) :D2=PEEK(N3) ■D3=PEEK(N4) 0051.1886 •D4=D/8D5=D/16- DR=D-8'!'D4DF=(D/16-D5)^2: IF 
D4<8THEN5^LSEIFD4<16THEW;i :ELSEIFD5<12THEN88 ELSE90 

49 REM * W CODES 00H TO 3FH * 

m fi)=AD<D4>;fF=IV(D5)IFDR01THEN51 ELSEIFDF=0THEW=flP(D5):A="LD "+«#^-", ":G0SUB76:G0T%2 ELSEft=''AD 
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D HL, "fflP •1301062 

51 IFDR02THEN52 EISEIFDF=8RNDD4<4THENR="LD ("iflp4-"),fl" 001062 ELSEIFDF=0fiNDD4>iTHENfl="LD "•60SIJB74- 
fl=fl-^".nftC:(D5);G0T062 ELSEfl="LD ft, c;''-fftP+'')"lF[)4>:<THENfl="LD HflC(D5)+", "0051.1674 001062 ELSE62 

52 IFDRO:<THEN51 ELSEIFDF=0THENfl="INC "-^fiP 001062 ELSEft="DEi:: "+ftp 001062 

53 IFt)R=4THENfl="INC: "•fft[)G0T065 

54 IFDR=5THENft="DEC "■••ftD:G0T062 

55 IFDR=6THENft="L0 "■J-ftD+", ":G0SLIB78 00X062 

56 IFDR=7THEN58 ELSEIFD4=0THEHft="N0P"ELSEIFD4=lTHENR="Ey fiF, ftF' ■'ELSEIFD4=2THENfl="D.JN2"ELSEIFD4=iTHEN 
fl="JR"ELSEIFD4=4THENft=".JR NZ"ELSEIFD4=5THENft="JR 2"ELSEIF[)4=6THENft="JR NC"ELSEfl=".JR C" 

57 IF04<2THEN62 ELSE80 

58 IFD4=8Tl€Na="RLCft"ELSEIFD4=lTHENft="RRC:ft'TLSEIFD4=2THENfl="RLft"ELSEIFD4=2THENft="RRft"ELSEIFD4=4THENft 
="Dflft"ELSEIFD4=5THENft="CPL"ELSEIFD4=6THENft="SCF"ELSEft="CCF" 

59 G0TCf62 

60 REM * OP CODES 48 - 7F * LD R, R * 

61 fl="LD "+ftD<D4-8)+'S"+ftD(DR)IF[)=118THENfl="HflL.T" 

62 N=rM : H=:M+N : ftK=LEFTI<ftX, mi.) ■ N=8 ; PRlNTTftB(6)ftKTflB(20)ftSTflB<28)ft • IFPEEKa4312>=63LPRINTftlTRB(6>flXT 
f«<20)fiSTftB<10)fi 

63 IFM>METHENINPUT"<PRESS ENTER>".;K$ 001046 ELSE47 
m REM * NEXT rCHORV LOCftTION * 

65 IFM<32768THENNl=MELSENl=M-65536 
€€ IFM<32767THENN2=MflELSEN2=M-65536-M 

67 IFH<32766THENN3=M+2ELSEN3=M-65536-f2 

68 I FM<32765THENN4=M-f 3ELSEN4=M-65536+3 

69 C=CilIFC=15THENirflJT"<PRESS ENTER>".iX$:C:=a 

70 H0=INT(M/4896) : H1=IHT( (M-4096*H0)/256) ■ H2=INT(: ':M-(4096*H8+256'!«H1 ) >/16) • H3=M-(4096*H0-f256*HlH6'!=H2 
):fil=ftH(H8)-i-ftH(Hl)-fftH(H2)-J-ftH(H3)-J-" ":PRINTftl;" ": 

71 IFS>0THEN164 

72 IFDB>0THEN188ELSE48 

73 REM * PRINT 2 DIGIT HEX CODE IN •: ) * 

74 fl=fi-t-" ( » : GOSi.876 ; ft=fl-f' • ) " ■ RETURN 

75 REM * PRINT 2 DIGIT HEX CODE * 

76 H=D2 • G0SIJB84 • G0SIJB78 ; N=N-f 1 : RETURN 

77 REM * PRINT 1 DIGIT HEX CODE * 

78 H=D1;G0SIIB84N=NH- RETURN 

79 REM * CftLCULflTE DISPLftCEMENT ^ 

80 fi=ftf" ":H=Dl:IFH>127THENH=H-256 

81 REM * PROGRAM COUNTER = +2 * PRINT HEX mWESS * 

82 MH=HiM-^2 : D2=INT(MH/256) ■ D1=MH-256*D2 : 60SUB76 : N=N-1 : G0T062 

83 REM * CONVERT BVTE TO HEX * 

84 H1=INT(H/16) f^R^-mCHl) ■Hl=H-Hlt.l6:fl=fl-frRH(Hl) :RETURN 

85 REM * CONVERT CONTENT OF MEMORV TO HEXfMCIMftL * 

86 H=D • G0SUB84 ; ft=fi-«-" " : H=D1 • G0SUe84 : fi=fi-^" " : H=D2 ; 60SUB84 • ft=fl-f " " • H=D3 : 009.884 • ftX=ft+" " • R=» " : RETURN 

87 REM * OP CODES 88 - BF i= REGISTER ARITHMETIC * 
^ fi=fiI<D4-16)4-" nflD<DR)CiOT062 

89 REM * OP CODES ft0 - FF EXCEPT CB DD ED FD * 

90 D4=D4-24:ftF=flF<D4):IFDR=0THENft="RET "+fiF :G0T062ELSEIFDR=2THEN«^''JP HfiF-f", "•6i3SUB76-GCiTC«2ELSEIFD 
R=4THENB="CRLL "-i-fr^", « :GCiSL876;G0T062ELSEIFDR=7THENR="RST " :H=D4i'8:ri)SI.IB84Q0T062ELSEIFDR=6THENR=RI 
<D4)-^" R, " ; H=Di : 6051884 • G0T062 

91 IFDF=lTHEN93ELSEIFDR=lTHENfiP<3)="fF" :fl="PCP "■s-Rp(D5-12) ■flP(3)="SP" •G0T062ELSEIFDR=5THErW(3)="RF" 
:R="PIISH "^ftP<D5-12) :fiP<3)="SP" ■GI3T062 

92 IFD4=0ThENft=" JP " : 605UB76 : G0T062ELSEIFD4=2THENft="0UT " : G0SUB78 : fi=R-f' S R" : G0T062ELSEIFD4=4T}€Wl="EX 
SP, HL" : aT%2ELSER="DI " • 60T062 

93 IFDR=5THEN94 ELSEIFDR=lTfCN95 ELSEIFD4=1THEN97 ELSEIFD4=3T«NR="IN fl, ":G0SUB78fj0T062 ELSEIFD4=5T 
HEmr-EX [E,IC":G0T%2 ELSEfl="EI":G0T062 

94 IFD4=lTHEr«="Cft.L " :GOSUB76:GOTO62ELSEIFD4=3THEN104ELSEIFD4=5Tf€N133ELSElW 

95 IFD4=lTF€W="reT":G0T062ELSEIFD4=3THENft="EXX" G0T062ELSEIFD4=5THEm="JP (!t.)"G0T%2ELSER="JP M, ^ 
:60SU876:G0T(K2 

% REM He OP CODES CB XX t 

97 N=N-s-l : DR=Dl/8 : DB=Dl-8tW : IFDR>7T{€N9ffiLSER=S¥J<DR)*" "4-F»([«) : G0TW2 

98 IFD«>15Tf€ie«LSER="Bn "4flHfDfl-8)4-flD(DB):Q0T062 
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99 IFDft>2i:THEN108ELSEfi="RES "4flH(Dft-16)4ffl)(DB):G0T062 
180 R="SET "•t-ftH(Dfl-24)iBD(De)G0Tfi€.2 

101 RE.H t. ftD.JIJST m FOR 4 BYTE OF CODE * 

102 t)l=D2 -1^2=01 RETURN 

103 REM * W COOES OD XX * 

104 RV="IX":rjOTO108 

105 REM * OF- CODES FD KX t 
186 RV="IV" 

107 REM * ftV = IX OR IV * fiZ = ("IXiDIS") OR (IV-i-DIS) * 

108 N=N-«-l : R= " " : H=D2 : GOSI.iB84 • RZ= " ( " -f RV+ " ^ " f fl4- " ) " ■ fi= " " : D4=D1 /8 

109 REM * HEX HRLF BVTES OF SECOND BVTE: RW=MSHB flX=LSHB * 

110 H=D1 :fiOSUB84-RI«!=LEFT$^R, 1) •RX=RIGHT$(R, 1 Vfi="" : IFD1=20S'THEN128 

111 REM *■ XD09 TO XDK9 * 

112 IFD1>57THEN114 ELSEIFRX="9"THENfiP(2)=RV:R="RDD "■fRV-^^ HRp(VftL(R«»RPf2)="HL":G0T062 

113 REM t. XD21 TO XD36 * 

114 IFD1=33THENR="LD "-ffiV-i-". " riOSUB102:GOSUB7€.:GOTO62ELSEIFDi=34THENfi="LD "•GOSUB102-6O9JB74R=fl+".. " 
■^RV:CCiT062ELSEIFDi=35THENR="INC "iRV-60T062ELSEIFDl=42THENR="LD "^flV-^", " : 6OSIJB102 : 60SI.1B74 • 60T062ELSE 
IFD1=43THENR="DEC "-t-RV ■ iJjT062 

115 IFD1=52THENR="INC "4-RZ:N=N-i-lG0T062ELSEIFDl=53THENfi="DEC HRZN=NH-G0T062ELSEIFD1=54THENR="LD " 
m^", " : H=D3 ■ Q0SUS84 • G0T062 

116 REM * XD86XX TO XD6EXX * 

117 IFDl>lllTHEN119ELSEIFDl<70OR(NOT(flX="6"ORflX="E"))THEN140 ELSEfi=TD "4RD(D4-8 )•«■", "+RZ:N=M+1:G0T(K 
2 

118 REM ^ XD70XX TO XD7EKX t- 

119 IFD1>117THEN120ELSER="LD "fRZ-i-", "4-RD(Dl-112)-N=N-«-l:G0TCf€2 

120 IFD1>133THEN122 ELSEIFD1=119THENR^''LD "4-RZ-»-'SR"N=rM;G0T0S2 ELSEIFD1=126THENR="LD R, "4-RZN=HH: 
G0T%2 ELSE140 

121 REM * CULL WOPERRBLE CODES * 

122 IFD1>190TI€M126ELSEIFRX=»6"THEN124ELSEIFRX="E"THEN124ELSE140 

123 REM * X086XX TO XD8EXX * 

124 fi=RI(D4-16)f" R,''+fiZ:N=N-fl:G0T062 

125 REM * XOEl TO XDF9 * 

126 1FD1=225THENR="P0P "+flV-60T062ELSEIFDl=227THENfl="EX <SP), "+RV:60T062ELSEIFDl=229THENfl="PUSH "fRV 
•GOT062ELSEIFDl=233TI€Nft="JP ■:"-^flV^")"-G0T%2ELSEIFDl=249THENR="LD SP, "4flV;GOT%2ELSE140 

127 REM * IDEXED BIT RND ROTRTE GROUP * DO CB RND FD CB * 

128 D4=D3/8:DR=D3-8#4- IFDRO6THEN140 

129 IF!)4<8THEf«=ftfl<D4)i" "4flZ-N=N^2;IFD4=6Tt€N140 ELSE62 

130 M=04-8: IFD4<8Tt€NR="BlT"ELSED4=D4-8: IFD4<8THENfi="RES"ELSED4=D4-8;fi=''SET" 

131 R=R-fSTRI(D4)-t-"; '*iflZ:N=M+2:60TK2 

132 REM * ED GROUP * CULL INOPERRTI'i/E COC€S ^ 

133 N=W4l : IFDl<64ORDl>188OR(Dl>163RflDDl<169)OR<Dl>171fM«)l<175)«(Dl>179WIM<184)THEN140 

134 1FDK124THEN142 ELSEIFD1<143THEN140 

1^ REM « EDTO TO EDBB * H.CCK TRWSFER R» SEf«CH <= 

136 D=D1 : IFD>15W="LDI " : IFD>16«="CPI " : IFD>161R=" INI " : IFD>lS2fl="0UTr ; IFD>167fl="LDD" : IFD>168fl=TPD" : 
IFD>169fi=" IM)" : IFD>17W=''a.lTD" : IFDMTSft^-LDIR" : IFD>176ft="CPIR'' : IFD>177R=" INIR" : IFD>17^=''0TIR" : IFD>1 
83ft="LDC«" : IFD>184fl="CPDR" : IFD>1^T{€I»="IITO" 

137 IF[)=187TI€Nfi="0TDR" 

138 CiOT%2 

139 REM * IWFERftTIVE Cm. * M)JUST F« SIWsLE BVTE * 

140 N=N-l:fl=''-WTft-":Q0T(M2 

141 REH * EM0 TO ED78XXXX * 

142 MA-m : M=0/8 : D5=D/16 : l»=0"8*D4 : IF=(D/16-D5)«2 : ?€=" <C) " 

143 REM * EDX8 * 

144 IFW>eTICMi46ELSEfl:^'iN "■ffiD(D4)-f «,"+«?.: IFD4=6TffiN14ttLSE62 

145 mn * EDXi EDX9 * 

146 !FW>lTICIIi4ffiLSER="aiT (C).. '••^tt)(D4):IFD4=6T}CN14ttLSE62 

147 REH * EDX2 ED^ * 

148 IFIl>2Tfflil»LSEIFl^=iT««=''Sa: H, "•^ff^(D5):a)TW2ELSEfl=''«X; HL, "*fF(D5)-60TC«2 

149 REM * EDX3 EDXB # 

im IFW>3TICN154ELSER="LD ":«}SL615i:IF[^=0TWII»ai74-ft=fl+", "■^^(D5)ELSEfi=R4-ff><D5)4-", ":(1HS74 
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151 REM * NO ED63 ED6B * 

152 IFD5=2THEN140ELSE62 

153 REM * ED44 * 

154 IFDR>4THEN156ELSEIFD4=0THENfi="NEG" 001062 ELSE140 

155 REM * ED45 ED4D * 

156 IFDR>5THEN158ELSEIFD5>0THEN14OELSEIFDF=0THENft="RETN" • G0T062ELSEft="RETI " • G0T062 

157 REM * ED46 ED56 ED5E * 

158 IFDR>6THEN161ELSEIFD=6THENR="IM 0"ELSEIFD=22THEN«="IM l"ELSEIFD=30THENfi="lM 2"ELSE140 

159 G0T062 

160 REM * EDX7 * 

' ^S;.I. IF"D==7THEr-4R="LD I.. R"ELSEIFD=^15THENR="LD R. R"EL:".EIFD==?':THENR==" 
i.„D R.. I " ELSE I FD=7i;l.THENR== " LD R.. R " El.SE I FD=3:9THENR= " RRD " ELSE T FD=47TH 
ENR="RLD"Ei SE148 

162 G0T062 

163 IS=INKEV$IF1$=""THEN163 ELSEPRINTI$- RETURN 

164 fiS=" » • IFM>=MS(SN)THENftS=RS<SN) • SN=SN+1 • IFSN>STHENS=0 

165 IFFlS="DflTR"THEND8=lELSEIFflS="E0D"THEr^DB=2 

166 G0T072 

167 S=S-MS<S):IFS<0THENS=0 

168 G0T0173 

169 CLSPRINT"SVMBOL TftBLE CONSTRUCTIOH": PRINT PRINT" IF VOU Wm ft SVMBOL TRBLE. VOU ItlST ENTER EftCH 
ADDRESS AND THE" :PRINT"SVMBOL VOU MftNT VOU MUST ENTER THE ADDRESSES IN NUMERICAL": PRINT "ORDER. SVM 

eaS ARE LIMITED TO SIX CHARACTERS m> 100 SVMBOLS " 

170 PRINT :PRI NT "TMO SVMBCIS ARE RESERVED FC^ SPECIAL USE:":PRINTTAB<6)"USE 'DATA' TO INDICATE THE ST 
ART CF A BLOCK OF DATA" •PRINTTAB(6) "USE 'EOD' TO INDICATE THE END OF A aOCK OF DATA. " 

171 DIM ASa00):DIM MS(100)S=0:SN=0 

172 PRINT :PRINT"PRESS <ENTER> AFTER LAST SVI^OL TO END INPUT" PRINT'-DO VOU MISH TO ENTER ^€X OR DECI 
mL RM)RESSES <H/D)"G0SUB163 

173 IFII="H"THEN177 

174 PRINTS; : INPUT "MEMORV LCCATION (DECIMAL)"; MS<S) 

175 IFMS<S)<0THEN167ELSEIFMS(S)>MEORMS(S)<MPTHENPRINT :RETURN 

176 INPLIT"<SVMBOL>".: AS(S) • IFAS(S)=" "THENPRINT : RETURNELSEMP=MS(S) • S=S+1 ; Q0T0173 

177 INPUT"MEMORV LOCATIC^ <HEXA[)ECIMAL>"iA 

178 MS=0 : L=LEN<A) : 0NLG0SUB183. 182, 181, 188 

179 PRINT RETURN 

1^ W=LEFTI<A.. 1) : A=RI6HT$(A, 3) •6OSUB185:MS=MH*4096 



181 fW=LEFT$<ai) 

182 AH=LEFT$(A,1) 

183 AH=A-60Siei85 



: A=RIGHT$(A, 2) ■ GOSieiSS " MS=MS-Hfl*256 

: A=RIGHT$<A, 1 ) : G09M85 : MS=MS+MH*16 

:MS=f1S+W: PRINT "C^CIWL: ";HS; :MS(S)=MS:G0T0175 

184 REM * CONVERT HEX TO DECIMAL * 

1^ FORX=0TO15: IFAH<X)=AHTHErtlH=X:RETIJ?N 

186 r€XT:tf<=0RETIM 

187 REM * DATA aCCK PRINTOJJT * 

188 D=PEEK(N1 ) • H=D : G0SLie84 : AX=A : Wm=2imm=% 

189 IF D>31 M) D<% THEN A=C:HR.$(A) ELSE A=" " 

190 GOTO 62 
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Map of TRSDOS and NEWDOS 

by John Hartford 

Using Disk Operating System routines is complex for 
two reasons. Tine DOS does a lot of different things and it 
does them in a complex way with overlay techniques. 
Overlay technique means that the samearea in memory is 
used for a number of different programs. Not only that, 
but the different programs that use the same memory can 
even call each other. 

How the System Initializes 

When you turn on your computer, control istransferred 
to memory location OOOOH in the ROM. If you press 
RESET, control is transferred to 0066H. Both of these 
routines jump to 0674H, which initializes pointers in RAM 
and checks the floppy disk controller chip to see if an 
expansion interface is connected. If the chip is active, 
control jumps to a routine at 069FH, which is the boot- 
strap routine. 

The bootstrap loads sector 0, track 0, from drive 0, into 
locations 4200H to 42FFH in RAM from the disk drive. 
Then control is transferred to4200 to run the boot routine. 
The boot looks in the directory on the disk for SYSO/SYS, 
and if it is on the disk, loads it into memory, then jumps to 
the execution address for SYSO/SYS. 

Pages 

Recall the memory mapof theTRS-80. It is organized as 
follows: 



0000 to 2FFF 

3000 to 37DF 

37E0 to 37FF 

3800 to 3BFF 

3C00 to 3FFF 

4000 to 7FFF 

8000 to BFFF 

COOO to FFFF 



Level II BASIC ROM 

empty 

Memory Mapped Input/ 

Output 

Keyboard 

Video Display memory 

First 16K RAM 

Second 16K RAM 

Third 16K RAM 



If we divide RAM into 256 byte pages, then the first two 
hex digits of the memory address is the page number. For 
example, 4200 to 42FF would be page 42, and 0000 to OOFF 
is page 0. 

Pages 40 and 41 are reserved memory for both Level II 
BASIC and the Disk Operating System. This area holds 
pointers, addresses, data, and modifiable programs used 
by either (or both) BASIC and DOS. 

Page 42 is an overlay area. It is the I/O buffer page and 
operating area for the BOOT, and later a general I/O 
buffer for the DOS. In Level II BASIC it is part of the 
keyboard buffer. A buffer is any section of memory that 
holds data temporarily before it is moved to the place it 
belongs or where it can be checked for correctness before 
being used. 

Pages 43 through 4C are loaded from SYSO/SYS and 
form the core of the Disk Operating System, remaining in 
the system at all times. Page 43 has reserved memory from 
4300 to 4317, a keyboard buffer from 4318 to 4357, and a 
number of patches fixing mistakes in other programs, 
primarily Level II I/O routines in TRSDOS and patches to 
TRSDOS in NEWDOS. 

Page 44 is largely a jump table, allowing fixed jumps 
from ROM or RAM to be redirected to any area in memory. 

Page 45 contains interrupt data and routines for 
handling interrupts. 



Page 46 contains the programs that actually talk to the 
floppy disk controller in order to move data to and from 
the disk and random access memory. 

Pages 47, 48, and 49 handle random access disk 
operations including calculations. 

Pages 4A and 4B (to 4BA1 ) read and write the directory, 
including the granule allocation table, but not the hash 
index table. 

The page from 4BA2 to 4CAB controls and loads the 
overlays, while the rest of page 4C prints the clock, the 
calendar, and the trace program counter number. Yes, the 
calendar is there, it is just another feature like devices that 
were forgotten before being fully implemented. 

Page 4D is a disk I/O buffer. 

Owerlay Area 1 (4E00 to 51 FF) 

Pages 4E through 51 contain overlay area number 1. 
The contents of an overlay area depend on what the disk 
operating system is doing at thetime. Overlay number 1 is 
very busy. Immediately after RESET, this area contains 
the second part of SYSO/SYS. This initializes the pointers 
in reserved memory, and sets up the data control blocks, 
the stack, and the interrupt mode. 

Once this is done, SYSO/SYS is replaced by SYS1/SYS 
in overlay 1. This program tells you DOS READY and 
interprets what you type in once you press [ENTER]. After 
that, the contents of overlay one are determined by your 
DOS command. 

When you open files so that they can be read by DOS or 
BASIC, this is done by SYS2/SYS in overlay 1 . When you 
close or kill files, this area holds SYS3/SYS. NEWDOS 
COPY also uses SYS3/SYS to format disks for full disk 
copying. SYS4/SYS loads the error messages here when 
you make a mistake. DEBUG (SYS5/SYS) also loads into 
overlay one. 

Owerlay Area 2 (5200 up, potentially as far as FFFF) 

SYS6/SYS uses 5200 to 60FF to execute the DOS 
library commands, except for directory, which also uses 
6100 through 68FF. 

BASIC, BACKUP, COPY, and many purchased utility 
programs all start around page 52. If one program resides 
here, obviously another cannot use the same memory. 
But do not assume that just because you did not change 
what was in this area, nothing else did. 

Summary 

It is convenient to think of two different types of 
memory use in the command area. First, there is the perm- 
anent area, from 4400 to 4CFF which operates the disks, 
performs certain calculations, and services interrupt 
•■equests. Pages 40, 41, and 43 are used as reserved or 
scratchpad memory, and pages 42 and 4D as disk input/ 
output buffers. Think of this area as a collection of utility 
programs waiting to be called. 

The second kind of memory use is for transient 
programs which are used once and then discarded. If you 
want to use them again they must be reloaded from disk, 
with a few exceptions. Most of them load to the same 
place; SYS1, SYS2, SYS3, SYS4, and SYS5 all load into 
pages 4E to 51. 

Other programs use a different area of RAM starting at 
page 52. This location is used by SYS6, BASIC, BACKUP, 
and COPY, among others. The relationship in the overlay 
areas is not greatly different from a series of BASIC 
programs calling each other from disk, but never 
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coexisting in memory. Note that when you are in BASIC, 
the BASIC interpreter extensions for disk BASIC are 
always in the second overlay area. 

Calling an Owerlay 

The DOS calls overlays by loading the accumulator 
with a one byte code and executing a restarts. In this case 
the low nibble contains the number of the SYSTEM file 
plus two, and the high nibble contains eight plus the 
number of the command to be executed. 

For example, to do a KILL, you want command 2 of 
SYS3/SYS. The command number would be 8+2, or A, 
and the system is 3+2, or 5. Therefore you load A5 into the 
accumulator and RST5. If you wanted to load a program 
without executing it, treat it as a command 0. SYS3/SYS 
would require a 85, 8+0 for the command and 3+2 for the 
program. 

This transfers control to the overlay control routine at 
4BA2 in SYSO. RST5 (EF Hex) is a one byte call, but 



routine 4BA2 discards the return address. Therefore, in 
order to call 4BA2, you must call the three byte routine 
which loads the accumulator with the desired command 
and does a RST5. At 4BA2, the routine checks the leftmost 
bit of accumulator A. If it is set, it is accepted as a valid 
command. It splits the high and low nibble and saves the 
byte at 430E, comparing the low nibble with the last one 
saved to see if the overlay being called is already in RAM. 
If not, it loads the new overlay. Then the overlay is called. 
The call is usually to a jump table, except for SYS4 (error 
messages) and SYS5 (DEBUG), which have only one 
command. The jump table in the other routines uses the 
high nibble in accumulator Ato select theappropriatesub 
command. 



TRSDOS SYMBOL TABLE - SYSO 
(KERNAL) 

4300 - TRACK number of DRIVE 

4301 - TRACK number of DRIVE 1 

4302 - TRACK number of DRIVE 2 
43 03 - TRACK number of DRIVE 3 

4304 - Directory TRACK of DRIVE 

4305 - Directory TRACK of DRIVE 1 

4306 - Directory TRACK of DRIVE 2 

4307 - Directory TRACK of DRIVE 3 

4308 - DRIVE number in binary = DATA for 4600 

4309 - BIT SET indicates DRIVE number 

430A " Stacker Storage - Pointer Caller 

430E - Last command to DOS 

430F - Semaphore bytes 

HIGHBIT = DEBUG FLAG 
LOWBIT = PROTECTION FLAG 
BIT 4 = SYS6 

76543210 

! ! ! PROTECTION FLAG 

I ! SYS6 FLAG 

I BASIC CHAINING 

DEBUG (SYS5) FLAG 



4312 - JUMP director for positive DOS 

4318 - DOS keyboard buffer 

4358 - New Keyboard DCB 

4378 - Change keyboard driver 

43 98 - Wait for NOT BUSY 

43AC - Select Drive control 

43B6 - "DEVICE" DATA 

43D1 - Fetch A = End of File offset 

43D8 - DOS keyboard driver 

4358 - BIT 7 = CONTROL SWITCH 

435F - RELAY for 47CF 

4366 - READ SECTOR and decrement NRN 

4377 - KEYBOARD modification DRIVER 

43B1 - SCREEN printer routine 



commands 




^. — = 


(TRSDOS 


ONLY) 


— - 


(TRSDOS 


ONLY) 




(TRSDOS 


ONLY) 


~- 


(TRSDOS 


ONLY) 


--- 


(TRSDOS 


ONLY) 


— - 


(TRSDOS 


ONLY) 


-- - 


(TRSDOS 


ONLY) 


-~ 


(NewDOS 


ONLY) 


-— 


(NewDOS 


ONLY) 


-™- 


(NewDOS 


ONLY) 


-— 


(NewDOS 


ONLY) 


— 


(NewDOS 


ONLY) 
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43DD 
4400 

4405 

4409 
440D 
4410 

4413 
4416 
4419 
441C 
4420 
4424 
4428 
442C 
4430 
4433 
4436 
4439 
443C 
443F 
4442 
4445 
4448 
444B 
444D 
4455 

4467 
446A 
446D 
4470 

4473 



4476 
4480 
44A0 
44B0 
44B4 
44B8 
44CF 
44DF 



Get TRACK number of SYSTEM FILES 
(93/EF) = VECTOR RESTART 
(B3/EF) = (#3 OF SYSl) 



— (NewDOS ONLY) 



= Get DEBUG 



DISPLAY ERROR 
which is RST 6(87) 
turn on INTERRUPT 
turn off INTERRUPT 
turn on CALLER 
turn off CALLER 
move a FILE NAME- (FCB) -from (HL) to (DE) 
INIT 
OPEN 
CLOSE 
KILL 
= LOAD MACHINE LANGUAGE FILE 
= LOAD and RUN MACHINE LANGUAGE FILE 
= READ 
= WRITE 
= VERIFY 

= POSITION to first RECORD NUMBER 
= POSITION to (BC) RECORD NUMBER 
= POSITION to next RECORD NUMBER 
= POSITION to last RECORD NUMBER 



JUMP to 44B0 
JUMP to 44B4 
JUMP to 4596 
JUMP to 4593 
JUMP to 45A5 
JUMP to 458E 

(C3/EF) = 

(A4/EF) = 

(94/EF) = 

(95/EF) = 

(A5/EF) = 
JUMP TO 4C16 
JUMP TO 4C06 
JUMP TO 476D 
JUMP TO 47 8B 
JUMP TO 47A8 
JUMP TO 4756 
JUMP TO 4700 
JUMP TO 4737 
JUMP TO 475F 

"RESTORE" 
Issue a DISK COMMAND 

WAIT = and RENAME DISK DRIVE the SAME 
(to prevent timeout) 
JUMP to 44CF = OUT 1 line to VIDEO 
JUMP to 44DF = OUT 1 line to PRINTER 
JUMP to 4CB7 = GET TIME 
JUMP to 4CD2 = GET DATE 

(D3/EF) = (#5 OF SYSl) = add a default extension 

If none- to which 
HL points 

(E3/EF) = (#6 of SYSl) 
Full-sized BUFFER for FILE FCB, DCB, and I/O 
Short DATA BUFFER = OPEN DCB DATA 

(86/EF) = Display an ERROR MESSAGE 

RST 6(F7) = Get DEBUG 

LD HLA, (HL) = and (PUT-GET 47AE) or (JP (HL) ) 

(OD/03) = Out 1 line to VIDEO 

(OD/03) = Out 1 line to PRINTER 

(OD or 03 terminates output) 



Page 45 - INTERRUPT Page 



4500 


- 


INDIRECT ADDRESS DATA FOR 4560 = INTERRUPT ADDR DATA 


4518 


- 


RST 7(FF) = INTERRUPTS 


4538 


- 


BRANCH = SAVE REGISTER, FETCH ADDRESS, and EXECUTE 


454F 


- 


BRANCH = If BREAK key down 


4560 


„ 


LD HL,((HL)) = do five times and JUMP 


458E 


- 


TURN OFF 


45A3 


- 


(A2) / ADDRESS 


45A4 


- 


(45) / of C9 


45A5 


- 


Turn on caller (Do not RETURN) 


45AF 


- 


(B2) / ADDRESS 


45B0 


- 


(45) / and 


45B1 


- 


(05) / SWITCH 


45B2 


- 


Adjust CLOCK and CALENDAR each SECOND 


45CE 


- 


TIME CONSTANTS — (NewDOS ONLY) 



82 



45CF - PATCHES 

45E3 - PART of DISK COMMANDS 

45F3 - PAUSE and FETCH STATUS 



■ (NewDOS ONLY) 

(NewDOS ONLY) 

— - (NewDOS ONLY) 



(FROM 4442) 

(FROM 4445) 

(FROM 443F) 

(FROM 4448) 



Page 46 - DISK COMMAND PAGE 

4600 - SELECT DRIVE = REGISTER C 

4639 - SET BIT in A = Value in A register Mod 8 

4647 - SET TRACK and LOAD SECTOR REGISTER 

D = TRACK E = Sector 
4658 - Do DISK COMMAND in A 

4661 - Issue DISK COMMAND and wait until done 
466 9 - wait until DISK CONTROLLER not busy 
4671 - DISK COMMAND common 
46DD - Give READ command 
46E6 - Give WRITE command 

46EF - Give WRITE/FA command (SYSTEM files) 
46F3 " Give VERIFY command 
4700 - Position to BC RECORD NUMBER 
4717 - Common for all positions 
4737 - Position to next RECORD NUMBER 
4756 - Position to first RECORD NUMBER 
475F - Position to last RECORD NUMBER 
476D - READ = (FROM 4436) 
478B - WRITE = (FROM 4439) 
47A8 - VERIFY = (FROM 443C) 
47AE - GET or PUT next BYTE in BUFFER 
47BB - GET = READ subroutine 
47DA - PUT = WRITE subroutine 
47FF - Store (I/O BLOCK) EOF DATA 
480E - READ next SECTOR 
482D - Get values for 46DD^ give READ^ 
483E - Do the WRITE with parameters 

4878 - On CLOSE^ check status for write on last sector 
4883 - Fetch current byte in buffer - c = BYTE COUNT 

DE = ADDRESS 
4892 - STACKER = Point IX to the I/O BUFFER 
48B3 - RETURN = UNSTACKER 

48B9 - CP NRN.ERN = next FIND RECORD NUMBER 
48DC - Get ready to READ or WRITE 

49B5 - Find file location on DISK DIRECTORY ENTRY 
4A00 - Does DIRECTORY WRITE for updating file 
4AC1 - DIRECTORY READ 
4AD6 ™ DIRECTORY WRITE 

4AF0 - GRANULE ALLOCATION READ = GAT READ 
4B03 - GRANULE ALLOCATION WRITE = GAT WRITE 
4B1E - Convert DECIMAL into TRACK/SECTOR/BYTE in DIRECTORY 
4B35 - READ 1 SECTOR - expected to be a SECTOR of DIRECTORY 
4B55 - LOAD REGISTER D with DIRECTORY TRACK NUMBER 
4B5D - TEST the A-TH BIT in B 

4B6A - Multiply HL by A^ put answer in HLA^ put HL into DE 
4B84 " Divide HL by A, put answer in HL^ and remainder in A 
4B9F - (AF) / GOOD 
4BA0 - (C9) / RETURN 
4BA2 - (EF/RST 5/NO RETURN) = DOS OVERLAY caller 



and EXECUTE 
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76543210 
A = N/C C C/N N N N 
/ CMD# / SYS#+2 
/ 
If BIT 7 ZERO, then NOT VALID, JUMP to 4312 

4C06 - LOAD and GO - a machine language file = (from 4433) 

4C16 - LOAD - a machine language file = (from 4430) 

4C89 - Fetch next byte from buffer 

4CA9 - DISPLAY CLOCK - which is at 4CAC 

4 CD 2 - DISPLAY CALENDAR 

4CD9 - DISPLAY "TRACE" = (PC of INTERRUPT) 

PAGE 4D - BUFFER 

PAGE 4E - OVERLAY 

PAGE 52 - OVERLAY FOR LIBRARY 

6FFF - END OF ALL DOS 

PAGE 70 and following - RAM 



DCB = Device Control Block 
DEC = DIRectory Entry Code 
ERN = End Record Number 
FCB = File Control Block 
GAT = Granule Allocation Table 
NRN = Next Record Number 
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TRSDOS SYMBOL TABLE - SYSl 
(Human I/O Interface) 



4E00 - Start of JUMP TABLE 

4E1F - (93) //Reinitialize DOS and 

(A3) //PROMPT and ACCEPT COMMANDS 
4E48 - JP (DE) = JUMP to LOCATION in REGISTER DE 
4E4E - (B3) = OBEY COMMAND (LIB or MACHINE LANGUAGE PROG) 
4E87 - Displays "WHAT?" 
4E90 - LIB Calls (SYS6) 

4EA4 - LIB Part 1 = ASCII list of BASIC2, DEBUG, and TRACE 
4EBD - LIB Listing Part 2 
4F56 - (C3) = Move file name from location pointed to 

by HL to location pointed to by DE 
4FA7 - CONNECTORS 
4FC0 - (D3) = Add default extension pointed 

to by HL to file name 
4FF4 - String Mover (ALPHA-NUMERIC only) 
502A - Match-Maker In BC = Match list 

DE = Data 
Out C = Counter 
DE = Address 
507D - (E3) = Evaluate inside parentheses 
50DF - Evaluate (YES/NO) s (ON/OFF) (Default is OFF) 
5104 - Convert ASCII DECIMAL to BINARY INTEGER 
511F - Convert ASCII HEX to BINARY INTEGER 
514C - BASIC2 
5162 - DEBUG 
5191 - TRACE 

51A0 - Checks for parentheses 
51AF - Six-byte buffer 
51B5 - "CMD" 
51 B9 - "DOS READY" 
51 C3 - "WHAT?" 



TRSDOS SYMBOL TABLE 
(OPEN) 



SYS2 



4E00 - Start of JUMP TABLE 

4E12 - (94) = OPEN 

4ED8 - (A4) = INITIAL 

4F50 - (B4) = Add a file to the DIRectory 

4FA7 - Change file DCB to "OPEN" = Set Flags, Load pointers 

(Replaces file name) 
5027 - Generate Special FCB at 5154 

from buffer pointed to by HL 
5081 - Move B ALPHA-NUMERIC bytes starting at location 

pointed to by HL to location pointed to by DE 
509B - Generate HIT Hash value 
50AB - /Random start to 
50B6 - /Find an empty spot in HIT 
50D1 - Password encoder 

50FD - Disk Drive Tester ( Exits with Z flag set on ) 

(disk-in door-closed power-on) 
5123 - Load HIT into RAM (Page 4D) 
5141 - Save HIT from RAM onto disk 
5154 - Buffer for total file description 
5180 - Decrement EOF markers 
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DCB = Device Control Block 
EOF = End-of-File 
FCB = File Control Block 
HIT = Hash Index Table 

TRSDOS SYMBOL TABLE - SYS3 

4E00 - Start of JUMP TABLE (old) (TRSDOS only) 

4E0D - (95) = CLOSE a file 

4E95 - On CLOSE ^ WRITE file name into FCB 

4F72 - (A5) = KILL a file 

4FCE - /SECOND PART OF 5047 

4FF0 - Reset the A-th bit of B 

4FFD - READ HIT into page 51 

500C - WRITE HIT into disk from page 51 

501B - Divide (HL) by (A) but decrement if no remainder 

5022 - DIR READ but increment EOF if byte number = 

5033 - Pseudo-subroutine to get D (Track) 

503C - Get DIRectory track number 

5040 - DIRectory WRITE 

5047 - GAT READ and free granules 

504F - NEWDOS beginning of JUMP TABLE (NEWDOS only) 

5059 - Formatter for COPY/CMD (NEWDOS only) 

EOF = End-of-File 

FCB = File Control Block 

GAT = Granule Allocation Table 

HIT = Hash Index Table 



TRSDOS SYMBOL TABLE 
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4E00 - Decode error coded in a Register into ASCII 
4F36 - ASCII data 



TRSDOS SYMBOL TABLE 
(DEBUG) 



SYS5 



4E00 - Enter and Save registers 

4E4B - DEBUG Command loop 

4E99 - X = Register format 

4E9A - S = Full scan 

4E9E - U = Update 

4EA8 - D = Display 

4EAE -- + = I = Increment memory display 

4EC6 - - = Decrement memory display 

4ECB - A & H = Presentation 

4ECF - Draw a screen display 

4EE5 - Do another line 

4EEA - Line formatter 

4F2E - Terminate process 

4F45 - Branch to fetch LEVEL II cursor for own use 

4F54 - Register ASCII data 

4F80 - GO 

4FB0 - Load register and GO 

4FCA - Store a break-point 

4FDB - Memory modify 

5011 - Register change 

505D - C & I = Single step 

50B7 - Single step return calculator 
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50C0 - Relative JUMP calculator 

50CC - Indexed calculator 

50DB - Common loop point for calculators 

50E0 - Disassembly data 

510E - (ED prefix) 

5115 - (FD & DD prefix) 

5131 - Subroutine for scan display 

5165 - Subroutine=OUT a memory marker (To video) or 2 blanks 

5180 - (Branch for following marker) 

51 8A - Fetch and echo key from keyboard 

51A3 - Get a number -(ASCII HEX)- from keyboard 

51BF - Convert ASCII to HEX (C=NO/NC=OK) 

51D0 - OUT byte pointed to by HL to video (HEX) 

51D4 - OUT HL to video (HEX) 

51D9 - OUT A to video (HEX) 

51E2 - OUT right nibble — (HEX) 

51EF - OUT A and blank 
51F2 - OUT blank 

51F6 - OUT 3 bytes (ASCII) 

51F9 - OUT 2 bytes (ASCII) 

51FC - OUT 1 byte (ASCII) 

TRSDOS SYMBOL TABLE - SYS6 
(Obey LIB Commands) 

5200 - Start of JUMP TABLE 

5251 - Refuse to obey 

526B - Do nothing 

5283 - AUTO 

529D - Get date 

52B1 - Get time 

52C5 - Turn clock ON or OFF 

52D3 - Display ERROR ('BAD FORMAT') 

52EA - Convert 2-digit numbers to BINARY 

5315 - "DEVICE" (Do nothing at all) 

533A - LIBrary 

536A - PROTect 

5454 - Encode new password 

5477 - ASCII 

5504 - VERIFY (ON or OFF) 

5515 - Check keyboard for BREAK or PAUSE 

553 A - ERROR = 'FILE SPEC REQUIRED' 

5543 - ERROR = 'DEVICE SPEC REQUIRED' 

554C - ERROR = 'DISK ERROR IN A' 

5551 - FCB buffer A 

5571 - FCB buffer B 

5591 - ASCII 

PAGE 56 — Input/Output buffer 



5700 


- APPEND 


5748 


- Relay to 57B6 


574F 


- COPY file (disk-to-disk) 


57B6 


- Transfer function — use buf 




use buf 


57D7 


- Dump 


589F 


- Get transfer address for dump 


58BE 


- Display a line and quit 


58C4 


- ASCII 


5914 


- KILL 



A as input DCB 
B as output DCB 
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592C - LIST 
5994 - LOAD 
59AC - PRINT 

PAGE 5A — Input/Output buffer 

5B00 - ATTRIBute 

5B3A - JUMP TABLE for ATTRIBute types 

5B4D - Protection (of ATTRIBute) 

5B69 - Change protection 

5B97 - Invisible (of ATTRIBute) 

5BA7 - Access password (of ATTRIBute) 

5BBC - Update password (of ATTRIBute) 

5BD1 - Subroutine to search for terminator 

5BE0 - Branch from 5BD1 if '=' is found 

5BF7 - Set new ATTRIButes into DIRectory 

5C6F - DIRectory 

5DE1 - Erase DIRectory from RAM 

5DF1 - DIRectory with attributes 

5E3E - LD DE = Track and sector of file pointed to by HL 

5E67 - Match tables and ASCII 

5EE0 - FREE 

5F9C - RENAME 

6028 - Display ERROR = 'DRIVE SPEC ERROR' 

604E - Display ERROR = 'DUPLICATE FILE NAME' 

606C - Convert BINARY into DECIMAL ASCII 

60A7 - Divide = (3 bytes pointes to by HL)/C 

PAGES 61 to 68 - buffer to hold DIRectory in 'DIR' 

DCB = Device Control Block 
FCB = File Control Block 



4000 
4001 
4002 

4003 
4004 
4005 

4006 
4007 
4008 
4009 
400A 
400B 



400C 
400D 
400E 
400F 
4010 
4011 
4012 
4013 
4014 



(C3) 
(96) 
(IC) 

(C3) 
(78) 
(ID) 

(C3) 
(90) 
(IC) 
(C3) 
(D9) 
(25) 



(C3) 
(A2) 
(4B) 
(C3) 
(B4) 
(44) 
(C3) 
(18) 
(45) 



TRSDOS RESIDENT MEMORY 

/ RST 1 (CF), JP 0005, and CALL 0005 
/ Compares (HL) to byte following CF 
/ (RST 1 code) , If true, jumps to 1D78 
/ (RST 2) , otherwise gives SYNTAX ERROR 
/ RST 2 (D7) fetches next non blank byte 
/ using HL as a text pointer « C flag set 
/ for a number y S flag for a BASIC token 
Z and S are set by accumulator 
/ RST 3 (DF) 
/ Compares HL and DE and sets flags 

/ 
/ RST 4 (E7) Compares contents of 40AF 
/ (number type) with 8, C clear indicates 
/ double precision, S and C set for integer 

C set and S clear for single precison 
set for string 



/ 
/ 
/ 



Z 
/ 
/ 
/ 



RST 5(EF) 



RST 6(F7) 



/ 
/ 
/ 



RST 7(FF) 



// 


JP 


4BA2 


= OVERLAY 


// 






CONTROL 


// 


JP 


44B4 


= TO 


// 






DEBUG 


// 
// 


JP 


4518 


= TO 

INTERRUPTS 
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* KEYBOARD DCB * 

4015 - (01) /DCB type 1 

4016 ■- (D8) / 43D8 CONTAINS THE 



4017 


- 


(43) 




/ ADDRESS OF THE DRIVER 


4018 


- 


(00) 






4019 


- 


(00) 






401A 


- 


(00) 






401B 


_ 


(4B) 




/ KI (device name) 


401C 


— 


(49) 








* 


VIDEO DCB 


* 


401D 


- 


(07) 


/ 


DCB type 7 


401E 


- 


(5B) 




/ ADDRESS OF 


401F 


- 


(04) 




/ THE DRIVER 


4020 


- 


(8F) 


/ 


The 


4021 


- 


(3C) 


/ 


CURSOR position 


4022 


- 


(00) 




/ Character in cursor 


4023 


- 


(44) 


/ 


DO (device name) 


4024 


- 


(4F) 








* 


LINE PRINTER DCB * 


4025 


- 


(06) 


/ 


DCB type 6 


4026 


- 


(8D) 




/ ADDRESS OF 


4027 


- 


(05) 




/ THE DRIVER 


4028 


- 


(43) 


/ 


Lines per page 


4029 


- 


(00) 




/ Line counter 


402A 


- 


(00) 


(not used) 


402B 


- 


(50) 




/ PR (device name) 


402C 


— 


(52) 








* 


TRSDOS 


GO 


VECTOR * 


402D 


- 


(C3) 




/ JUMP (Calls SYSl - 


402E 


- 


(00) 




/ TO beginning of DOS) 


402F 


— 


(44) 




/ 4400 


4030 


_ 


(3E) 




/ LD A, A3 / C7 = RST 


4031 


- 


(A3) 




(conditional jump if DEBUG active) 


4032 


_ 


(EF) 




/ RST 5 


4033 


- 


(C3) 


/ 


JUMP 


4034 


- 


(BB) 


/ 


TO 


4035 


— 


(44) 


/ 


44BB 




* 


KEYBOARD MEMORY RAM * 


4036 


_ 


(00) 






4037 


- 


(00) 




(Row storage for debounce and keyboard 


4038 


- 


(00) 




rollover routines) 


4039 


- 


(00) 






403A 


- 


(00) 






403B 


- 


(00) 






403C 


* 


(00) 
CASSET-] 


DE ] 


PULSER and WIDE MODE VIDEO MEMORY * 



403D "■ (00) 

403E - (22) 

403F - (01) 

4040 - (00) / CLOCK = COUNT of 25 MSEC INTERRUPTS 
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* 


BINARY TIME * 


4041 


- 


(00) 


/ SECONDS 


4042 


- 


(00) 


/ MINUTES 


4043 


— 


(00) 


/ HOURS 




* 


BINARY DATE * 


4044 


- 


(00) 


/ YEAR 


4045 


- 


(00) 


/ DAY 


4046 


— 


(00) 


/ MONTH 


4047 


— 


(00) 


(Storage for second overlay address) 


4048 


— 


(52) 




4049 


— 


(FF) 


/ TOP MEMORY 


404A 


~ 


(BF) 


/ In TRSDOS and Disk BASIC 


404B 


— 


(3F) 


/ INTERRUPT 


404C 


- 


(CO) 


/ DATA 




* 


INTERRUPT 


ADDRESSES * 


404D 


- 


(37) 




404E 


- 


(45) 




404F 


- 


(37) 




4050 


- 


(45) 




4051 


- 


(37) 




4052 


- 


(45) 


(All point to 4537) 


4053 


- 


(37) 




4054 


- 


(45) 




4055 


- 


(37) 




4056 


- 


(45) 




4057 


- 


(37) 




4058 


- 


(45) 




4059 


- 


(37) 




405A 


- 


(45) 




405B 


- 


(37) 




405C 


— 


(45) 






* 


DEBUG STORAGE inactive // active * 


405D 


- 


// RST 


// Flag for type of display 


405E 


- 


// ADDRESS // for use with RST "INTERRUPTS" 


405F 


- 


/ RST DATA 


4060 


- 


// RST 


// // also - MEMORY POINTER 


4061 


- 


// ADDRESS // // during display 


4062 


- 


/ RST DATA 


4063 


- 


(LOW) 


/ DEBUG DISPLAY // POINTS to DEBUG 


4064 


— 


(HIGH) 


/ POINTER // REGISTER DATA 




* 


DEBUG REGISTER HOLDERS (OFF STACK) * 


4065 


- 


F 




4066 


- 


A 




4067 


_ 


C 




4068 


~ 


B 




4069 


- 


E 




406A 


- 


D 




406B 


- 


L 




406C 


- 


H 




406D 


„ 


F' 




406E 


- 


A^ 




406F 


- 


C 
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4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
407A 
407B 
407C 
407D 
407E 
407F 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
430A 
430B 
430C 
430D 
430E 
430F 



4310 
4311 
4312 

4313 
4314 
4315 

4316 
4317 



4318 
4319 
431A 
431B 
431C 
431D 
431E 
431F 
4320 
4321 
4322 



B' 
E' 

L' 
H' 
IX 
IX 
lY 

SP 
SP 
PC 
PC 



(LOW) 
( HIGH 
(LOW) 
( H IGH 
(LOW) 
(HIGH 
(LOW) 
(HIGH 
// 
// 
// 

(11) 

(11) 

(11) 

(11) 

(11) 

(11) 

(11) 

(11) 

(00) / 

(01) / 
(80/FF) 
(44/66) 
(FE) 
(4B) 
(87) 
(01) / 



(00) 
(11) 
(C3) 

(4D/43) 
(4B/5D) 
(00/C3) 

(FF/OF) 
(FF/40) 

* KEYBOARD 
(42) 
(41) 
(53) 
(49) 
(43) 
(OD) 
(2C) 
(49) 
(29) 
(OD) 
(FF) 



) 

) 

// OLD 
) // OLD 

) 

Null in DOS 



(Initialization stack pointer 
in Level II BASIC) 



// TRACK of DRIVE 

// TRACK of DRIVE 1 

// TRACK Of DRIVE 2 

// TRACK of DRIVE 3 

// DIRECTORY TRACK of DRIVE 

// DIRECTORY TRACK of DRIVE 1 

// DIRECTORY TRACK of DRIVE 2 

// DIRECTORY TRACK of DRIVE 3 

Drive number in binary (Data for 4600) 

Bit SET indicates DRIVE number 



// Hold last command to DOS 
HIGHBIT = DEBUG FLAG 
LOWBIT = PROTECTION FLAG 
BIT 4 = FLAG for SYS6 



// Jump director for position 

commands to EF - DOS commands 



// CLEAR while doing overlay 
C3 when DEBUG FLAG SET 



BUFFER (64 BYTES?) * 



4328 -- 



(FF) 
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4330 - (FF) 

4338 -' (FF) 

4340 - (00) 

o o o 

4348 - (00) 

4350 -' (00) 



Data Organization on Disic 

Data is organized on disk in a definite format. Sections 
of the format are separated by filler blocks to allow 
synchronization. The filler blocks usually contain 14 
bytes of FF and 6 bytes of 00. Here is a typical file 
organization. 



FF FF FF FF FF FF FF FF FF FF 

FF FF FF FF 00 00 00 00 00 00 Filler block 

FE Address mark 

XX 00 Track number, separator 

XX Sector number 

XX Format multiplier 

XX XX 2 Byte checksum 

FF FF FF FF FF FF FF FF FF FF 

FF FF FF FF 00 00 00 00 00 Filler block 

FB Data mark 

XX XX ... XX Data 

XX XX Checksum 

FF FF FF FF FF FF FF FF FF FF 

FF FF FF FF 00 00 00 00 00 00 Filler block 



92 



FD1771-01 Floppy Disk 
Formatter/Controller 

Western Digital Corporation 



FEATURES 

® SOFT SECTOR FORMAT COMPATIBILITY 

® AUTOMATIC TRACK SEEK WITH VERIFICATION 

@ READ MODE 

Single/Multiple Sector Write with Automatic Sector 

Search or Entire Track Read 
Selectable 128 Byte or Variable Length Sector 

® WRITE MODE 

Single/Multiple Sector Write with Automatic Sector 

Search 
Entire Track Write for Diskette Formatting 

® PROGRAMMABLE CONTROLS 

Selectable Track-to-Track Stepping Time 
Selectable Head Setting and Head Engage Times 
Selectable Three Phase or Step and Direction and 
Head Positioning Motor Controls 

® SYSTEM COMPATIBILITY 

Double Buffering of Data 8-Bit Bi-Directional Bus for 

Data, Control and Status 
DMA or Programmed Data Transfers 
All Inputs and Outputs are TTL Compatible 



APPLICATIONS 

® FLOPPY DISK DRIVE INTERFACE 

® SINGLE OR MULTIPLE DRIVE CONTROLLER/ 
FORMATTER 

® NEW MINI-FLOPPY CONTROLLER 



GENERAL DESCRIPTION 

The FD1771 is a MOS/LSI device that performs the 
functions of a Floppy Disk Controller/Formatter. The 
device is designed to be included in the disk drive elec- 
tronics, and contains a flexible interface organization that 
accommodates the interface signals from most drive 
manufacturers. The FD1771 is compatible with the IBM 
3740 data entry system format. 

The processor interface consists of an 8-bit bi- 
directional bus for data, status, and control word trans- 
fers. The FD1 771 is set up to operate on a multiplexed bus 
with other bus-oriented devices. 

The FD1771 is fabricated in N-channel Silicon Gate 
MOS technology and is TTL compatible on all inputs and 
outputs. The A and B suffixes are for ceramic and plastic 
packages, respectively. 



^BB (-5V) C 


1 


Wl c 


2 


Cs c 


3 


m c 


4 


Aq C 


5 


A1 C 


6 


bAL6 c 


7 


DAL 1 l: 


8 


DAL 2 C 


9 


DAL 3 C 


10 


DAL 4 C 


11 


DAL 5 C 


12 


ftALfi C 


13 


DAL 7 C 


14 


PhT/step C 


15 


PH2/DIRC C 


16 


PH3 C 


17 


3PM C 


18 


Mfi C 


19 


(GND)Vss C 


20 



3 INTRO 
3 DRQ 
D DINT 

3 wprT 

I IP 

THOO 

W? 
3 READY 
] WD 
3 WG 

II TG43 
1 HLO 

1 FODATA 
3 FDCLK 
3 XTDS 
3 CLK 
3 ULT 

3 TiST 
D vc ( • 5V) 



Pm CONNECTIONS 



COMPUTER 
INTERFACE 



> 



Wl 




FLOPPY DISK 

CONTROLLER. 

FORMATTER 



^SS Vbb Vdd Vqc 






wprT 



TRtJCr 






ONE SHOT 
(IF USED) 



FLOPPY 

DISK 

DRIVE 



FD1771 SYSTEI^ BLOCK DIAGRAM 
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ORGANIZATION 

The Floppy Disk Formatter block diagram is illustrated 
below. The primary sections include the parallel 
processor interface and the Floppy Disk interface. 

Data Shift Register: This 8-bit register assembles serial 
data from the Read Data input (FDDATA) during Read 
operations and transfers serial data to the Write Data out- 
put during Write operations. 



Data Register This 8-bit register is used as a holding 
register during Disk Read and Write operations. In Disk 
Read operations the assembled data byte is transferred in 
parallel to the Data Register from the Data Shift Register. 
In Disk Write operations information is transferred in 
parallel from the Data Register to the Data Shift Register. 



PIN OUTS 



Pin No. 


Pin Name 


Symbol 


Function 


1 


Power Supplies 


Vbb/NC 


-5V 


19 


MASTER RESET 


MR 


A logic low on this input resets the device and loads 
"03" into the command register. The Not Ready 
(Status bit 7) is reset during MR ACTIVE. When MR 
is brought to a logic high, a Restore Command is 
executed, regardless of the state of the Ready signal 
from the drive. 


20 




vss 


Ground 


21 




vcc 


+5V 


40 




Vdd 


+ 12V 


Computer 1 
2 


nterface 


WE 


A logic low on this input gates data on the DAL into 


WRITE ENABLE 


3 




CS 


the selected register when CS is low. 

A logic low on thisinput selects thechipand enables 


CHIP SELECT 


4 




RE 


computer communication with the device. 

A logic low on this input controls the placement of 


READ ENABLE 








data from a selected register on the DAL when CS is 








low. 


5.6 


REGISTER SELECT 


Ao, Ai 


These inputs select the register to receive/transfer 




LINES 




data on the DAL lines under RE and WE control: 
Ai Ao RE WE 
Status Register Command Register 

1 Track Register Track Register 

1 Sector Register Sector Register 


7-14 






1 1 Data Register Data Register 
Eight bit inverted bidirectional bus used for transfer 


DATA ACCESS LINES 


DAL0-DAL7 








of data, control, and status. This bus is a receiver 








enabled by WE or a transmitter enabled by RE. 


24 


CLOCK 


CLK 


This input requires a free-running 2 MHz±1% square 
wave clock for internal timing reference. 


38 


DATA REQUEST 


DRQ 


This open drain output indicates that the DR con- 
tains assembled data in Read operations, or the DR 
is empty in Write operations. This signal is reset 
when serviced by the computer through reading or 
loading the DR in Read or Write operation, respec- 
tively. Use 10K pull-up resistor to +5. 


39 


INTERRUPT REQUEST 


INTRQ 


This open drain output is set at the completion or 
termination of any operation and is reset when a 
new command is loaded into the command register. 
Use 10K pull-up resistor to +5. 


Floppy DIsfe 
15 


[ Interface: 


PH1/STEP 


If the 3PM input is a logic low the three-phase motor 


Phase 1/Step 








control is selected and PHI, PH2, and PH3 outputs 
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Pin No. 
16 
17 
18 

22 

23 

25 

26 

27 
28 
29 

30 
31 
32 



33 



34 
35 

36 

37 



Pin Name 
Phase 2/Direction 
Phase 3 
3-Phase Motor Select 



TEST 



HEAD LOAD TIMING 



EXTERNAL D ATA 
SEPARATION 

FLOPPY DISK CLOCK 
(External Separation) 



FLOPPY DISK DATA 

HEAD LOAD 

Track Greater than 43 

WRITE GATE 
WRITE DATA 
Ready 



Symbol 
PH2/DIRC 
PH3 



WRITE FAULT 



TRACK 00 



INDEX PULSE 



WRITE PROTECT 



DISK INITIALIZATION 



3PM 

TEST 

HLT 

XTDS 

FDCLOCK 

FDDATA 

HLD 

TG43 

WG 
WD 
READY 



WF 



TROO 
IP 



WPRT 



DINT 



Function 

forrn a oneactive lowsignal out of three. pFTT is active 
low after MR. If the 3PM input is a logic high the step 
and direction motor control is selected. The step 
output contains a 4 usee high signal for each step 
and the direction output is active high when stepping 
in; active low when stepping out. 

This input is used for testing purposes only and 
should be tied to +5V or left open by the user. 

The HLT input is sampled after 10 ms. When a logic 
high is sampled on the HLT input the head is assumed 
to be engaged. 

A logic low on this input selects external data 
separation. A logic high or open selects the internal 
data separator. 

This i nput receiv es the externally separated clock 
when XTDS = 0. If XTDS = 1, this input should be tied 
to a logic high. 

This input receives the raw read disk data if XTDS=1, 
or the externally separated data if XTDS=0. 

The HLD output controls the loading of the Read- 
Write head against the media. 

This output informs the drive that the Read-Write 
head is positioned between tracks44-76. This output 
is valid only during Read and Write commands. 

This output is made valid when writing is to be per- 
formed on the diskette. 

This output contains both clock and data bits of 
500 ns duration. 

This input indicates disk readiness and is sampled 
for a logic high before Read or Write commands are 
performed. If Ready is low, the Read or Write oper- 
ation is not performed and an interrupt is generated. 
A Seek operation is performed regardless of the state 
of Ready. The Ready input appears in inverted format 
as Status Register bit 7. 

This input detects wiring faults indications from the 
drive. When WG=1 and WF goes low, the current 
Write command is germinated and the Write Fault 
status bit is set. The WF input should be made inactive 
(high) when WG becomes inactive. 

This input informs the FD1771 that the Read-Write 
head is positioned over Track 00 when a logic low. 

Input, when low for a minimum of 10 usee, informs 
the FD1771 when an index mark is encountered on 
the diskette. 

This input is sampled whenever a Write command is 
received. A logic low terminates the command and 
sets the Write Protect status bit. 

The iput is sample d whe never a Write Track com- 
mand is received. If DINT=0, the operation is termin- 
ated and the Write Protect status bit is set. 
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When executing the Seek command, the Data Register 
holds the address of the desired Track position. This 
register can be loaded from the DAL and gated onto the 
DAL under processor control. 

Track Register: This 8-bit register holds the track number 
of the current Read/Write head position. It is incremented 
by one every time the head is stepped in (towards track 
76) and decremented by one when the head is stepped out 
(towards track 00). The contents of the register are 
compared with the recorded track number in the ID field 
during disk Read, Write, and Verify operations. TheTrack 
Register can be loaded from or transferred to the DAL. 
This Register should not be loaded when this device is 
busy. 

Sector Register (SR): This 8-bit register holds the address 
of the desired sector position. The contents of the register 
are compared with the recorded sector number in the ID 
field during disk Read or Write operations. The Sector 
Register contents can be loaded from or transferred to 
the DAL. This register should not be loaded when the 
device is busy. 



Command Register (CR): This 8-bit register holds the 
command presently being executed. This register should 
not be loaded when the device is busy unless the 
execution of the current command is to be overridden. 
This latter action results in an interrupt. The command 
register can be loaded from the DAL, but not read onto the 
DAL. 

Status Register (STR): This 8-bit register holds device 
Status information. The meaning of the Status bits are a 
function of the contents of the Command Register. This 
register can be read onto the DAL, but not loaded from the 
DAL. 

CRC Logic: This logic is used to check or to generate the 
16-bit Cyclic Redundancy Check (CRC). The polynomial 
is: G(x) = x^s + x^2 + x5 + d1. 

The CRC includes all information starting with the 
address mark and up to the CRC characters. The CRC 
register is preset to ones prior to data being shifted 
through the circuit. 



DATA OUT 

BUFFERS 



COMMAND 

REG 



WRITE DATA 
(TO DISK) 

DRO 



SHIFT 



■^— I CRC LOGIC |.^— 



TRACK 



REG 



STATUS 



DATA 
SEPA- 
RATOR 



FD CLOCK 



CS 

'W 



ME^ 



CLK (2 MHZ) 



COMPUTER 
INTERFACE 
CONTROL 



TIMING AND 
CONTROL 



CONTROL 



DISK 

INTERFACE 

CONTROL 



TROO 



READY 



PH3 
3 PM 



FD1771 BLOCK DlAGRAi 



Arithmetic/Logic Unit (ALU): The ALU is a serial 
comparator, incrementer, and decrementer and is used 
for register modification and comparisons with the disk 
recorded ID field. 

AM Detector: The Address Mark detector is used to detect 
ID, Data, and Index address marks during Read and Write 
operations. 

Timing and Control: All computer and Floppy Disk 
Interface controls are generated through this logic. The 
internal device timing is generated from a 2.0 MHz 
external crystal clock. 

PROCESSOR INTERFACE 

The interface to the processor is accomplished through 
the eight Data Access Lines (DAL) and associated control 
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signals. The DAL are used to transfer Data, Status, and 
Control words out of, or into the FD1771. The DAL are 
three-state buffers that are enabled as output drivers 
when Chip Select (CS) and Read Enable (RE) are active 
(low logic state) or act as input receivers when CS and 
Write Enable (WE) are active. 

When transfer of data with the Floppy Disk Controller is 
required by the host processor, the device address is 
decoded and CS is made low. The least-significant 
address bits A1 and AO, combined with the signals RE 
during a Read operation or WE during a Write operation 
are interpreted as selecting the following registers: 



A1-A0 


READ (RE) 


WRITE (WE) 




1 

1 

1 1 


Status Register 
Track Register 
Sector Register 
Data Register 


Command Register 
Track Register 
Sector Register 
Data Register 



During Director Memory Access (DMA) types of data 
transfers between the Data Register of the FD1 771 and the 
Processor, the Data Request (DRQ) output is used in Data 
Transfer control. This signal also appears as status bit 1 
during Read and Write operations. 

On Disk Read operations the Data Request is activated 
(set high) when an assembled serial input byte is 
transferred in parallel to the Data Register. This bit is 
cleared when the Data Register is read by the processor. If 
the Data Register is read after one or more characters are 
lost, by having new data transferred into the register prior 
to processor readout, the Lost Data bit is set in the Status 
Register. The Read operation continues until the end of 
sector is reached. 

On Disk Write operations the Data Request is activated 
when the Data Register transfers its contents to the Data 
Shift Register, and requires a new data byte. It is reset 
when the Data Register is loaded with new data by the 
processor. If new data is not loaded at the time the next 
serial byte is required by the Floppy Disk, a byte of zeroes 
is written on the diskette and the Lost Data bit is set in the 
Status Register. 

The Lost Data bit and certain other bits in the Status 
Register will activate the interrupt request (INTRO). The 
interrupt line is also activated with normal completion or 
abnormal termination of all controller operations. The 
INTRO signal remains active until reset by reading the 
Status Register to the processor or by the loading of the 
Command Register. In addition, the INTRO is generated if 
a Force Interrupt command condition is met. 



FLOPPY DISK INTERFACE 

The Floppy Disk interface consists of head positioning 
controls, write gate controls, and data transfers. A 2.0 
MHz ±1% square wave clock is required at the CLK input 
for internal control timing (may be 1.0 MHz for mini 
floppy). 



HEAD POSITIONING 

Four commands cause positioning of the Read-Write 
head (see Command Section). The period of each 
positioning step is specified by the r field in bits 1 and of 
the command word. After the last directional step, an 
additional 10 milliseconds of head setting time takes 
place. The four programmable stepping rates are 
tabulated below. 

The rates (shown in Table 1 ) can be applied to a Three- 
Phase Motor or a Step-Di rectio n Motor through the 
device interface. When the 3PM input is connected to 
ground, the device operates with a three phase motor 
control interface, with one active low signal per phase on 
the three output signals PHI , PH2, and PH3. The stepping 
sequence, when stepping in, is Phases 1-2-3-1, and when 
stepping out. Phases 1-3-2-1. Phase 1 is active low after 
Master Reset. Note: PH3 needs an inverter if used. 

The Step-Direction Motor Control interface is activated 
by leaving in£ut 3PM open or connecting it to +5V. The 
Phase 1 pin PHI becomes a Step pulse of 4 microseconds 
width. The Phase 2 pin PH2 becomes a direction control 



with a high voltage on this pin indicating a Step In, and a 
low voltage indicating a Step Out. The Direction output is 
valid a minimum of 24 /a.s prior to the activation of the 
Step pulse. 

When a Seek, Step or Restore command is executed, an 
optional verification of Read-Write head position can be 
performed by setting bit 2 in the command word to a logic 
1. The verification operation begins at the end of the 10 
millisecond settling time after the head is loaded against 
the media. The track number from the first encountered 
ID Field is compared against the contents of the Track 
Register. If the track numbers compare and the ID Field 
Cyclic Redundancy Check (CRC) is correct, the verify 
operation is complete. If track comparison is not made but 
the CRC checks, an interrupt is generated, the Seek Error 
status (Bit 4) is set and the Busy status bit is reset. 

Table 1. STEPPING RATES 



n ro 


1771 -XI 
CLK=2 MHz 


1771-X1 
CLK=1 MHz 


1771 or -XI 
CLK=2 MHz 


1771 or -XI 
CLK=1 MHz 


TEST=1 


TEST=1 


TEST=0 


TEST^O 




1 

1 

1 1 


6ms 

6 ms 

10ms 

20ms 


12ms 
12ms 
20 ms 
40ms 


Approx. 
400US* 


Approx. 
800US* 



*For exact times consult WDC. 

The Head Load (HLD) output controls the movement of 
the read/write head against the disk for data recording or 
retrieval. It is activated at the beginning of a Read, Write (E 
flag On) or Verify operation, or a Seek or Step operation 
with the head load bit, h, a logic one remains activated 
until the third index pulse following the last operation 
which uses the read/write head. Reading or Writing does 
not occur until a minimum of 10 msec delay after the HLD 
signal is made active. If executing the type 2 commands 
with the E flag off, there is no 10 msec delay and the head 
is assumed to be engaged. The delay is determined by 
sampling of the Head Load Timing (HLT) input after 10 
msec. A high state input, generated from the Head Load 
output transition and delayed externally, identifies 
engagement of the head against the disk. In the Seek and 
Step commands, the head is loaded at the start of the 
command execution when the h bit is a logic one. In a 
verify command the head is loaded after stepping to the 
destination track on the disk whenever the h bit is a logic 
zero. 



The 2.0 MHz external clock provided to the device is 
internally divided by 4 to form the 500 kHz clock rate for 
data transfer. When reading data from a diskette this 
divider is synchronized to transitions of the Read Data 
(FDDATA) input. When a transition does not occur on the 
500 kHz clock active state, the clock divider circuit injects 
a clock to maintain a continuous 500 kHz data clock. The 
500 kHz data clock is further divided by 2 internally to 
separate the clock and information bits. The divider is 
phased to the information by the detection of the address 
mark. 

In the internal data read and separation mode the Read 
Data input toggles from one state to the opposite state for 
each logic one bit of clock or information. This signal can 
be derived from the amplified, differentiated, and sliced 
Read Head signal, or by the output of a flip-flop toggling 
on the Read Data pulses. This input is sampled by the 2 
MHz clock to detect transitions. 
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The chip can also operate on externally separated data, 
as supplied by methods such as Phase Lock loop, One 
Shots, or variable frequency oscillators. This is 
accomplished by grounding the External Data Separator 
(XTDS) INPUT. When the Read Data input makes a high- 
to-low transition, the information input to the FDDATA 
line is clocked into the Data Shift Register. The assembled 
8-bit data from the Data Shift Register are then transferred 
to the Data Register. 

The normal sector length for Read or Write operations 
with the IBM 3740 format is 128 bytes. This format or 
binary multiples of 128 bytes will be adopted by setting a 
logic 1 in Bit 3 of the Read and Write commands. 
Additionally, a variable sector length feature is provided 
which allows an indicator recorded in the ID Field to 
control the length of the sector. Variable sector lengths 
can be read or written in Read or Write commands, 
respectively, by setting a logic in Bit 3 of the command 
word. The sector length indicator specifies the number of 
16 byte groups of 16 x N, where N is equal to 1 to 256 
groups. An indicator of all zeroes is interpreted as 256 
sixteen byte groups. 

DISK WRITE OPERATION 

After data is loaded from the processor into the Data 
Register, and is transferred to the Data Shift Register, data 
will be shifted serially through the Write Data (WD) 
output. Interlaced with each bit of data is a positive clock 
pulse of 0.5 microsecond duration. This signal may be 
used to externally toggle a flip-flop to control the 
direction of Write Current flow. 

When writing is to take place on the diskette the Write 
Gate (WG) output is activated, allowing current to flow 
into the Read/Write head. As a precaution to erroneous 
writing, the first data byte must be loaded into the Data 
Register in response to a Data Request from the FD1771 
before the Write Gate signal can be activated. 

Writing is inhibited when the Write Protect input is a 
logic low, in which case any Write command is 
immediately terminated, an interr upt is gener ated and the 
Write Protect status bit is set. The Write Fault input, when 
activated, signifies a writing fault condition detected in 
disk drive electronics such as failure to detect write 
current flow when the Write Gate is activated. On 
detection of this fault t he FD1771 t erminates the current 
command, and sets the Write Fault bit (bit 5) in the Status 
Word. The Write Fault input should be made inactive 
when the Write Gate output becomes inactive. 

Whenever a Read or Write command is received the 
FD1 771 samples the READY input. If this input is logic low 
the command is not executed and an interrupt is 
generated. The Seek or Step commands are performed 
regardless of the state of the READY input. 



■COMMAND DESCRIPTION 

TheFD1771 will accept and execute eleven commands. 
Command words should only be loaded in the Command 
Register when the Busy status bit is off (status bit 0). The 
one exception isthe Force Interrupt command. Whenever 
a command is being executed, the Busy status bit is set. 
When a command is completed, an interrupt is generated 
and the Busy status bit is reset. The Status Register 
indicates whether the completed command encountered 
an error or was fault-free. For ease of discussion, 
commands are divided into four types. Commands and 
types are summarized in Table 2. 



TYPE 1 COMMANDS 

The Type 1 Commands include the RESTORE, SEEK, 
STEP, STEP-IN, and STEP-OUT commands. Each of the 
Type 1 Commands contain a rate field ron), which 
determines the stepping motor rate as defined in Table 1 , 
below. 

The Type 1 Commands contain a head load flag (h) 
which determines if the head is to be loaded at the 

Table 2. COMMAND SUMMARY 





BITS 


TYPE 


COMMAND 


7 6 


5 


4 3 


2 


1 







Restore 








h 


V 


r1 


rO 




Seek 








1 h 


V 


r1 


rO 




Step 





1 


u h 


V 


r1 


rO 




Step In 


1 





u h 


V 


r1 


rO 




Step Out 


1 


1 


u h 


V 


t1 


rO 


II 


Read Command 


1 





m b 


b 


U 


U 


II 


Write Command 


1 


1 


m b 


E 


a1 


aO 


III 


Read Address 


1 1 








E 








III 


Read Track 


1 1 


1 





1 





s 


III 


Write Track 


1 1 


1 


1 


1 








IV 


Force Interrupt 


1 1 





1 '3 


•2 


"1 


'4 



Note: Bits shown in TRUE form. 



Table 3. FLAG SUMMARY 



TYPE 1 



h=Head Load flag (Bit 3) 

h = 1, Load head at beginning 

h = 0, Do not load head at beginning 

V=Verify flag (Bit 2) 

V = 1, Verify on last track 

V = 0, No verify 
r1rO=Stepping motor rate (Bits 1-0) 

Refer to Table 1 for rate summary 
u=Update flag (Bit 4) 

u = 1, Update Track register 
u = 0, No update 



Table 4. FLAG SUMMARY 



TYPE II 



m = Multiple Record flag (Bit 4) 

m=0. Single Record 
m=1, Multiple Records 

b = Block length flag (Bit 3) 

b=1, IBM format (128 to 1024 bytes) 
b=0, Non-IBM format (16 to 4096 bytes) 

a1aO=Data Address Mark (Bits 1-0) 



alaO = 00,FB (Data Mark) 
alaO = 01, FA (User defined) 
alaO = 10,F9 (User defined) 
alaO = 11,F8 (Deleted Data Mark) 
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Table 5. FLAG SUMMARY 



TYPE 



s = Synchronize flag (Bit 0) 

T=0, Synchronize to AM 

s=1, Do Not Synchronize to AM 



TYPE IV 



li = Interrupt Condition flags (Bits 3-0) 

lo=1, Not Ready to Ready Transition 
1-1=1, Ready to Not Ready Transition 
l2=1, Index Pulse 
13=1, Immediate interrupt 

E = Enable HLD to 10 msec Delay 



E=1, Enable HLD, HLT and 10 msec Delay 
E=0, Head is assumed Engaged and there is 
no 10 msec Delay 



beginning of the command. If h=1, the head is loaded at 
the beginning of the command (HLD output is made 
active). If h=0, HLD is deactivated. Once the head is 
loaded, the head will remain engaged until the FD1771 
receives a command that specifically disengages the 
head. If the FD1771 does not receive any commands after 
two revolutions of the disk, the head will be automatically 
disengaged (HLD made inactive). The Head Load Timing 
Input is sampled after a 10 ms delay, wahen reading or 
writing on the disk is to occur. 

The Type 1 Commands also contain a verification (V) 
flag which determines if a verification operation is to take 
place on the destination track. If V=1, a verification is 
performed; if V=0, no verification is performed. 

During verification, the head is loaded and after an 
internal 10 ms delay, the HLT input is sampled. When HLT 
is active (logic true), the first encountered ID field is read 
off the disk. The track address of the ID Field is then 
compared to the Track Register, if there is a match and a 
valid ID CRC, the verification is complete, an interrupt is 
generated and the BUSY status bit is reset. If there is not a 
match but there is valid ID CRC, an interrupt is generated, 
the Seek Error status bit (Status Bit 4) is set and the BUSY 
status bit is reset. If there is a match but not a valid CRC 
the CRC error status bit is set (Status Bit 3), and the next 
encountered ID Field is read from the disk for the 
verification operation. If an ID Field with a valid CRC 
cannot be found after two revolutions of the disk, the 
FD1771 terminates the operation and sends an interrupt 
(INTRQ). 

The STEP, STEP-IN, and STEP-OUT commands 
contain an UPDATE flag (U). When U=1, the trackregister 
is updated by one for each step. When U=0, the track 
register is not updated. 




COMMAND \^ YES 
A 
STEP-IN 




RESET HLD 



YES y^ COMMAND 

A 
SEEK 



NO i RESTORE 



{FF)H TO TR 








^ k) 



TYPE I COMMAND FLOW 



RESTORE (SEEK TRACK 0) 

Upon receipt of this command the Track 00 (TROO) 
input is sampled. If TROO is active low indicating the Read- 
Write head is positioned over track 0, the Track Regi ster is 
loaded with zeroes and an interrupt is generated. If TROO 
is not active low, stepping pulses (pins 15 t o 17) at a rate 
specified by the nrof ield are issued until the TROO input is 
activated. At this time the T R is lo aded with zeroes and an 
interrupt is generated. If the TROO input does not go active 
low after 255 stepping pulses, the FD1771 terminates 
operation, interrupts, and sets the Seek error status bit. 
Note that the RESTORE command is executed when MR 
goes from an active to an inactive state. A verification 
operation takes place if the V flag is set. The h bit allows 
the head to be loaded at the start of command. 



SEEK 

The command assumes that the Track Register 
contains the track number of the current position of the 
Read-Write head and the Data Register contains the 
desired track number. The FD1771 will update the Track 
register and issue stepping pulses in the appropriate 
direction until the contents of the Track register are equal 
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SET DIRECTION 



DELAY ACCORDING 
TORI RO FIELD 




^ 



TYPE I COMMAND FLOW 

to the contents of the data register (the desired track 
location). A verification operation takes place if the V flag 
is on. The h bit allows the head to be loaded at the start of 
the command. An interrupt is generated at the completion 
of the command. 



STEP 

Upon receipt of this command, the FD1771 issues one 
stepping pulse to the disk drive. The stepping motor 
direction is the same as in the previous step command. 
After a delay determined by the nro field, a verification 
takes place if the V flag is on. If the U flag is on, the TR is 
updated. The h bit allows the head to be loaded at the start 
of the command. An interrupt is generated at the 
completion of the command. 



SET 
ORG 
ERROR 




NOTE: IF TEST THERE IS N0 10 MS DELAY 

IF TEST 1 AND CLK 1 MHz THERE IS A 20MS DELAY 



TYPE i COiiliAMD FLOW 

STEP-IN 

Upon receipt of this command, the FD1771 issues one 
stepping pulse in the direction towards track 76. If the U 
flag is on, the Track Register is incremented by one. After 
a delay determined by the nro field, a verification takes 
place if the V flag is on. The h bit allows the head to be 
loaded at the start of the command. An interrupt is 
generated at the completion of the command. 



STEP-OUT 

Upon receipt of this command, the FD1771 issues one 
stepping pulse in the direction towards track 0. If the U 
flag is on, the TR is decremented by one. After a delay 
determined by the nrof ield, a verification takes place if the 
V flag is on. The h bit allows the head to be loaded at the 
start of the command. An interrupt is generated at the 
completion of the command. 



TYPE f§ COMMANDS 

The Type II Commands include the Read Sector(s) and 
Write Sector(s) commands. Prior to loading the Type II 
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command into the COMMAND REGISTER, the computer 
must load the Sector Register with the desired sector 
number. Upon receipt of the Type II command, the Busy 
status bit is set. If the E flag=1 (this is the normal case), 
HLD is made active and HLT is sampled after a 10 msec 
delay. If the E flag is 0, the head is assumed to be engaged 
and there is no 10 msec delay. The ID field and the Data 
Field format are shown below. 

When an ID field is located on the disk, the FD1771 
compares the track number of the ID field with the Track 
Register. If there is not a match, the next encountered ID 
field is read and a comparison is again made. If there was a 
match, the next encountered ID field is compared with the 
Sector Register. If there is not a Sector match, the next 
encountered I D field is read off the disk and comparisons 



again made. If the ID field CRC is correct, the data field is 
then located and will be either written into, or read from 
depending on the command. The FD1771 must find an ID 
field with a track number. Sector number, and CRC within 
two revolutions of the disk; otherwise, the Record Not 
Found status bit is set (Status bit 3) and the command is 
terminated with an interrupt. 

Each of the Type II Commands contain a (b) flag which 
in conjunction with the sector length field contents of the 
ID determines the length (number of characters) of the 
Data field. 

For IBM 3740 compatibility, the b flag should equal 1. 
The numbers of bytes in the data field (sector) is the 128 x 
2" where n = 0,1,2,3. 



GAP 


ID 

AM 


TRACK 
NUMBER 


ZERO 


SECTOR 
NUMBER 


SECTOR 
LENGTH 


CRC 

1 


CRC 
2 


GAP 


BATA 
AM 


DATA FIELD 


CRC 

1 


CRC 

2 


ID FIELD 


DATA FIELD 



IDAM = ID AdcJress Mark 
Data AM 



DATA = (FE)i6 CLK = (C7)i6 
Data Address Mark — DATA = (F8, F9, FA, or FB), 
CLK= (C7)i6 



For b = 1 



Sector Length 
Field (Hex) 


Number of Bytes 
in Sector (Decimal) 


00 
01 
02 
03 


128 

256 

512 

1024 



When the b flag equals zero, the sector length field (n) 
multiplied by 16 determines the number of bytes in the 
sector or data field as shown below. 

For b = 



Sector Length 
Field (Hex) 


Number of Bytes 
in Sector (Decimal) 


01 
02 
03 
04 

FF 
00 


16 
32 
48 
64 

A 

* 

4080 
4096 



Each of the Type II commands also contain a (m) flag 
which determines if the multiple records (sectors) are to 
be read or written, depending upon the command. If m=0 a 
single sector is read or written and an interrupt is 
generated at the completion of the command. If m=1, 
mulitple records are read or written with the sector 
register internally updated so that an address verification 
can occur on the next record. The FD1771 will continue to 
read or write multiple records and update the sector 
register until the sector register exceeds the number of 
sectors on the track or until the Force Interrupt command 
is loaded into the command register, which terminated 
the command and generates an interrupt. 




SET BUSY RESET DRO LOST 

DATA RECORD NOT FOUND & 

STATUS BITS 5 & 6 INTRO 




fmTPQ. RESET BUSyA 
I SET WHITE PROTECT J 



NOTE IF TEST tHEHt IS NO 10 MS Dt I AY 

If TEST lANOClK I MH/ THE RE IS A 20MS DEL 



TYPE II C^ 



lAND FLO^ 
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Upon receipt of the Read command, the head is loaded, 
the BUSY status bit set, and when an ID field is 
encountered that has the correct track number, correct 
sector number, and correct CRC, the data field is 
presented to the computer. The Data Address Mark of the 




BRING IN SECTOR LENGTH FIELD 

COMPUTE LENGTH FROM b FLAG 

STORE LENGTH IN INTERNAL 

REGISTER 




data field must be found within 28 bytes of the correct 
field; if not, the Record Not Found status bit is set and the 
operation is terminated. When the first character or byte 
of the data field has been shifted through the DSR, it is 
transferred to the DR, and DRQ is generated. When the 
next byte is accumulated in the DSR, it is transferred to 



TYPE II COMMAND FL01 




TYPE II C 



the DR and another DRQ is generated. If the computer has 
not read the previous contents of the DR before a new 
character is transferred that character is lost and the Lost 
Data status bit is set. This sequence continues until the 
complete data field has been input to the computer. If 
there is a CRC error at the end of the data field, the CRC 
error status bit is set, and the command is terminated 
(even if it is a multiple record command). 

At the end of the Read operation, the type of Data 
Address Mark encountered in the data field is recorded in 
the Status Register (Bits 5 and 6) as shown below. 



Status 
Bits 


Status 
Bit 6 


Data AM 
(Hex) 




1 
1 



1 

1 


FB 
FA 
F9 
F8 



Upon receipt of the Write command, the head is loaded 
(HLD active) and the BUSY status bit is set. When an ID 
field is encountered that has the correct track number, 
correct sector number, and correct CRC, a DRQ is 
generated. The FD1771 counts off 1 1 bytes from the CRC 
field and the Write Gate (WG) output is made active if the 
DRQ is serviced (i.e., the DR has been loaded by the 
computer). If DRQ has not been serviced, the command is 
terminated and the Lost Data status bit is set. If the DRQ 
has been serviced, the WG is made active and six bytes of 
zeros are then written on the disk. At this time the Data 
Address Mark is then written on the disk as determined by 
the aiao field of the command as shown on next page. 

The FD1771 then writes the data field and generates 
DRQs to the computer. If the DRQ is not serviced in time 
for continuous writing the Lost Data status bit is set and a 
byte of zeros is written on the disk. The command is not 
terminated. After the last data byte has been written on the 
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a1 aO 


Data Mark 
(Hex) 


Clock Mark 
(Hex) 




1 

1 


FB 
FA 
F9 


C7 
C7 
C7 



disk, the two-byte CRC is computed internally and written 
on the disk followed by one byte gap of logic ones. The 
WG outputs is then deactivated. 



DELAY 2 BYTES OF GAP 



DELAY 8 BYTES OF GAP 




__^INTRO RESET BUSY^ 
\. SET LOST DATA J 



DELAY 1 BYTE OF GAP 



WRITE DATA AM 
ACCORDING TO A1. AO FIELD 
OF WRITE COMMAND 



DR TO OSH SET DRO 



TE BYTE TO DISK 



DHBEEN\. o 

LOADPn \ "O ^ 


SET DATA 


(D«Q = 0) ^^ 


WRITE BYTE 
OF ZEROS 


[YES 







WRITE 1 BYTE OF ONES 



TURN OFF WG 



^ 



TYre 11 COMMAND FLOW 
TYPE III COEiilANDS 



encountered !D field is then read in from the disk, and the 
six data bytes of the ID field are assembled and 
transferred to the DR, and a DRQ is generated for each 
byte. The six bytes of the ID field are shown below. 



TRACK 
ADDR 


SIDE 
NUMBER 


SECTOR 
ADDRESS 


SECTOR 
LENGTH 


CRC 
1 


CRC 
2 


1 


2 


3 




4 


5 


6 



Although the CRC characters are transferred to the 
computer, the FD1771 checks for validity and the CRC 
error status bit is set if there is a CRC error. The Sector 
Address of the ID field is written into the Sector Register. 
At the end of the operation an interrupt is generated and 
the BUSY Status is reset. 



READ TRACK 

Upon receipt of the Read Track command, the head is 
loaded and the BUSY status bit is set. Reading starts with 
the leading edge of the first encountered index mark and 
continues until the next index pulse. As each byte is 
assembled it is transferred to the Data Register and the 
Data Request is generated for each byte. No CRC 
checking is performed. Gaps are included in the input 
data stream. If bit 0(S) of the command is a 0, the 
accumulation of bytes is synchronized to each Address 
Mark encountered. Upon completion of the command, 
the interrupt is activated. 



WRITE TKACK 

Upon receipt of the Write Track command, the head is 
loaded and the BUSY status bit is set. Writing starts with 
the leading edge of the first encountered index pulse and 
continues until the next index pulse, at which time the 
interrupt is activated. The Data Request is activated 
immediately upon receiving the command, but writing will 
not start until after the first byte has been loaded into the 
Data Register. If the DR has not been loaded by the time 
the index pulse is encountered the operation is 
terminated making the device Not Busy, the Lost Data 
status bit is set, and the Interrupt is activated. If a byte is 
not present in the DR when needed, a byte of zeros is 
substituted. Address Marks and CRC characters are 
written on the disk by detecting certain data byte patterns 
in the outgoing data stream as shown in the table below . 
The CRC generator is initialized when any data byte from 
F8 to FE is about to be transferred from the DR to the DSR. 



READ ADDRESS 

Upon receipt of the Read Address command, the head 
is loaded and the BUSY Status bit is set. The next 
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SET BUSY, RESET DRQ 

LOST DATA. STATUS 

BITS 4 5 4 6 



G 




TYPE 111 COMMAND WRITETRACK 
CONTROL BYTES FOR INITIALIZATIOI 



DATA 




CLOCK 


PATTERN 




MARK 


(HEX) 


INTERPRETATION 


(HEX) 


F7 


Write CRC Character 


FF 


F8 


Data Address Mark 


C7 


F9 


Data Address Mark 


C7 


FA 


Data Address Mark 


07 


FB 


Data Address Mark 


07 


FC 


Index Address Mark 


D7 


FD 


Spare 




FE 


ID Address Mark 


07 




c 




TYPE 111 COMMAND WRITE TRACK 

The Write Track Command will not execute if the DINT 
input is grounded; instead, the Write Protect status bit is 
set and the interrupt is activated. Note that one F7 pattern 
generates two CRC characters. 

TYPE IV COMMAND 

Force Interrupt 

This command can be loaded into the command 
register at any time. If there is a current command under 
execution (BUSY status bit set), the command will be 
terminated and an interrupt will be generated when the 
condition specified in the Iq through I3 field is detected. 
The interrupt conditions are shown below: 

lQ=Not-Ready-To-Ready Transition 

^=Ready-To-Not-Ready Transition 

Ip^Every Index Pulse 

l3=lmmediate Interrupt (Requires reset, see note) 

Note: If Iq - 13 = 0. there is no interrupt generated but the 
current command is terminated and busy is reset. This is 
the only command that will clear the immediate interrupt. 

STATUS DESCRIPTION 

Upon receipt of any command, except the Force 
Interrupt command, the Busy Status bit is set and the rest 
of the status bits are updated or cleared for the new 
command. If the Force Interrupt Command is received 
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when there is a current command under execution, the 
Busy status bit is reset, and the rest of the status bits are 
unchanged. If the Force Interrupt command is received 
when there is not a current command under execution, 
the Busy Status bit is reset and the rest of the status bits 
are updated or cleared in this case. Status reflects the 
Type I commands. 



The 


format of the Status 


Register is sh( 


Dwn below. 


(BITS) 


7 
S7 


6 
S6 


5 
S5 


4 
S4 


3 
S3 


2 
S2 


1 
SI 



SO 



Status varies according to the type of command 
executed as shown in Table 6. 



Table 6. STATUS REGISTER SUMMARY 



BIT 


ALL TYPE 1 
COMMANDS 


READ 
ADDRESS 


READ 


■^— ^^— — — — — 

READ 
TRACK 


WRITE 


WRITE 
TRACK 


S7 
S6 
S5 
S4 


NOT READY 
WRITE PROTECT 
HEAD ENGAGED 
SEEK ERROR 


NOT READY 





ID NOT FOUND 


NOT READY 
RECORD TYPE 
RECORD TYPE 
RECORD NOT 


NOT READY 








NOT READY 
WRITE PROTECT 
WRITE FAULT 
RECORD NOT 


NOT READY 
WRITE PROTECT 
WRITE FAULT 



S3 
S2 
SI 
SO 


CRC ERROR 
TRACK 
INDEX 
BUSY 


CRC ERROR 
LOST DATA 
DRQ 
BUSY 


FOUND 
CRC ERROR 
LOST DATA 
DRQ 
BUSY 




LOST DATA 

DRQ 

BUSY 


FOUND 
CRC ERROR 
LOST DATA 
DRQ 
BUSY 




LOST DATA 

DRQ 

BUSY 



STATUS FOR TYPE I COMMANDS 



BIT 


NAME 


MEANING 


S7 


NOT READY 


This bit when set indicatesthe drive is not ready. When reset it indicates that 
the drive is ready. This bit is an inverted copy of the READY input and 
logically "ored" with MR. 


S6 


PROTECTED 


When set, indicates Write Protect is activated. This bit is an inverted copy of 
WRPT input. 


S5 


HEAD LOADED 


When set, it indicates the head is loaded and engaged. This bit is a logical 
"and" of HLD and HLT signals. 


S4 


SEEK ERROR 


When set, the desired track was not verified. This bit is reset to when 
updated. 


S3 


CRC ERROR 


When set, there was one or more CRC errors encountered on an unsucces- 
sful track verification operation. This bit is reset to when updated. 


S2 


TRACK 00 


When set, indicates Read-Write head is positioned to Track 0. This bit is an 
inverted copy of the TROO input. 


SI 


INDEX 


When set, indicates index mark detected from drive. This bit is an inverted 
copy of the IP input. 


SO 


BUSY 


When set, command is in progress. When reset, no command is in progress. 



106 



STATUS BITS FOR TYPE II AND ill COMMANDS 



BIT NAME 


MEANING 


S7 NOT READY 

S6 RECORD TYPE/WRITE PROTECT 

S5 RECORD TYPE/WRITE FAULT 

S4 RECORD NOT FOUND 

S3 CRC ERROR 

S2 LOST DATA 

S1 DATA REQUEST 

SO BUSY 


This bit when set indicates the drive is not ready. When reset, it indicates 
that the drive is ready. This bit is an inverted copy of the READY input and 
"ored" with MR. The TYPE 11 and III Commands will not execute unless the 
drive is ready. 

On Read Record: It indicates the MSB of record-type code from data field 
address mark. On Read Track: Not Used. On any Write Track: It indicates a 
Write Protect. This bit is reset when updated. 

On Read Record: It indicates the LSB of record-type code from data field 
address mark. On Read Track: Not Used: On any Write Track: It indicates a 
Write Fault. This bit is reset when updated. 

When set, it indicates that the desired track and sector were notfound. This 
bit is reset when updated. 

If S4 is set, an error is found in one or more ID fields; otherwise it indicates 
error in data field. This bit is reset when updated. 

When set, it indicates the computer did not respond to DRQ in one byte 
time. This bit is reset to zero when updated. 

This bit is a copy of the DRQ output. When set, it indicates the DR is full on a 

Read operation or the DR is empty on a Write operation. This bit is reset to 

zero when up 

When set, command is under execution. When reset, no command is under 

execution. 



FORMATTING THE DISK (Refer to section on Type 
III Commands for flow diagrams.) 

Formatting the disk is a relatively simple task when 
operating programmed I/O or when operating under DMA 
control with a large amount of memory. When operating 
under DMA with limited amount of memory, formatting is 
a more difficult task. This is because gaps as well as data 
must be provided at the computer interface. 

Formatting the disk is accomplished by positioning the 
R/W head over the desired track number and issuing the 
Write Track command. Upon receipt of the Write Track 
command, the FD1771 raises the Data Request signal. At 
this point in time, the user loads the Data Register with 
desired data to be written on the disk. For every byte of 
information to be written on the disk, a Data Request is 
generated. This sequence continues from one index mark 
to the next index mark. Normally, whatever data pattern 
appears in the Data Register is written on the disk with a 
clock mark of (FF)i6. However, if the FD1771 detects a 
data pattern ffn F7 through FE in the Data Register, this is 
interpreted as data address marks with missing clocks or 
CRC generation. For instance, an FE pattern will be 
interpreted as an ID address mark (DATA-FE,CLK-C7) 
and the CRC will be initialized. An F7 pattern will generate 
two CRC characters. As a consequence, the patterns F7 
through FE must not appear in the gaps, data fields, or ID 
fields. Also, CRCs must be generated by an F7 pattern. 

Disks may be formatted in IBM 3740 formats with sector 
lengths of 1 28,256,51 2, or 1 024 bytes, or may be formatted 
in non-IBM format with sector lengths of 16 to 4096 bytes 
in 16-byte increments. IBM 3740 at the present time only 
defines two formats. One format with 128 bytes/sector 
and the other with 256 bytes/sector. The next section 
deals with the IBM 3740 format with 128 bytes/sector 
followed by a section of non-IBM formats. 

IBM 3740 Formats— 128 Bytes/Sector 

The IBM format with 1 28 bytes/sector is depicted in the 
Track Format figure on the following page. In order to 
create this format, the user must issue the Write Track 
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command, and load the data register with the following 
values. For every byte to be written there is one data 
request. 



Nymber 


Hex Value of 


of Bytes 


Byte Written 


40 


00 or FF 


6 


00 


1 


FC (Index Mark) 


26 


00 or FF 


6 


00 


1 


FE (ID Address Mark) 


1 


Track Number (0 through 4C) 


1 


00 


1 


Sector Number (1 through 1A) 


1 


00 


1 


F7 (two CRCs written) 


11 


00 or FF 


6 


00 


1 


FB (Data Address Mark) 


128 


Data (IBM uses E5) 


1 


F7 (two CRCs written) 


27 


00 or FF 


247* * 


00 or FF 



* Write bracketed field 26 times 
* * Continue writing until FD1771 interrupts out. 
Approximately 247 bytes. 

Non-IBM Formate 

Non-IBM formats are very similar to the IBM formats 
except a different algorithm is used to ascertain the sector 
length from the sector length byte in the ID field. This 
permits a wide range of sector lengths from 16 to 4096 
bytes. Refer to Section V, Type II commands with b flag 
equal to zero. Note that F7 through FE must not appear in 
the sector length byte of the ID field. 

In formatting the FD1771, only two requirements 
regarding GAP sizes must be met. GAP 2 (i.e., the gap 
between the ID field and data field) must be 17 bytes of 
which the last 6 bytes must be zero and that every address 



mark be preceded by at least one byte of zeros. However, 
it is recommended that every GAP be at least 17 bytes 
long with 6 bytes of zeros. The FD1771 does not require 
the index address mark (i.e., DATA=FC,CLK=D7) and 
need not be present. 



1) IBM Diskette OEM Information GA21-9190-1. 

2) SA900 IBM Compatibility Reference Manual— Shugart 
Associates. 



PHYSICAL INDEX 




DATA OR 


















128 BYTES OF USER 


CRC 


CRC 


ADDRESS 


DATA 


BYTE 1 


BYTE 2 


MARK 










ELECTRICAL CHARACTERISTICS 

Maximum Ratings 

Vqd with respect to Vgg (Ground) +20 to -0.3V 

Max Voltage to any input with respect to Vbb+20 to -0.3V 
Operating Temperature 0°C to 70°C 

Storage Temperature -55°C to +125°C 



OPERATING CHARACTERISTICS (D 

Ta=0°C to 70°C, Vdd=+12.0V±.6V 
Ve?b =5-0 .5V, Vss=OV, Vcc=+5V ±.25V 
IdD=10 ma Nominal, lcc=30 ma Nominal 
\QQ=OAM.a Nominal 



Symbol 


Characteristic 


Win. 


Type. 


Max. 


Units 


Conditions 


"LI 


Input Leakage 






10 


M 


V}n=Vdd 


ILO 


Output Leakage 






10 


M 


VouT"VdD 


V|H 


Input High Voltage 


2.6 






V 




V|L 


Input Low Voltage (All Inputs) 






0.8 


V 




VOH 


Output High Voltage 


2.8 




V 


IO=-100/^A 


Vol 


Output Low Voltage 




0.45 


V 


IO=-10 mA 



TA=0°C to 70°C,Vdd=-*-12V±.6V 
Vbb=-5V .25V,Vss=0V,Vcc=+5V±-.25V 



NOTE: Timings are given for 2 MHz Clock. For those 
timings noted, values will double when chip is operated at 
1 MHz. Use 1 MHz when using mini-floppy. 
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Read Operations 



Symbol 


Characteristic 


MIn. 


Typ. 


Max. 


Units 


Conditions 


TSET 


SetuD ADDR and CS to RE 


100 






nsec 




THLD 


Hold ADDR and CS from RE 


10 






nsec 




TRE 


RE Pulse Width 


450 






nsec 


CL = 25 pf 


TDRR 


DRQ Reset from RE 






750 


nsec 




TIRR 


INTRQ Reset from RE 






3000 


nsec 




TDACC 


Data Access from RE 






450 


nsec 


CL = 25 pf 


TDOH 


Data Hold from RE 


50 




150 


nsec 


CL = 25 pf 



Write Operations 



Symbol 

TSET 

THLD 

TWE 

TDRR 

TIRR 

TDS 

TDH 



Ciiaracteristtc 

Setup ADDR and CS to WE 
Hold ADDR and CS from WE 

WE Pulse Width 

DRQ Reset from WE 
INTRQ Reset fram WWE 
Data Setup to WE 
Data Hold from WE 



MIn. 

100 

10 

450 



350 
150 



Typ. 



300 



Max. 



750 
300 



Units 

nsec 
nsec 
nsec 
nsec 
nsec 
nsec 
nsec 



Conditions 



See Note 



External D 


ata Separation (XTDS- 0) 












Symbol 

TPWX 
TCX 
TDEX 
TDDX 


Characteristic 

Pulse Width Read Data & Read Clock 
Clock Cycle External 
Data to Clock 
Data to Data Cycle 


Min. 

150 
2500 

500 
2500 


Typ. 


Max. 
350 


Units 

nsec 
nsec 
nsec 
nsec 


Conditions 




DATA VALID (DAL) 
READ DATA 
(BUFFER", TRl-STATED 



NOTE 

1 CS MAY BE PERMANENTLY TIED LOW IF DESIRED 

2 FOR READ TRACK COMMAND THIS TIME MAYBE 12- TO 32- MSEC WHEN S 

3 Ijg^ico WORST CASE 26 ji sec 
•TIME DOUBLES WHEN CLK 1 MHZ 



READ ENABLE TIMING 



XTDS 
EXTERNAL DATA 
SEPARATION 




-«J U»- ^ ) 






«_ U- 






DH 

NOTE 

1 CS MAY BE PERMANENTLY TIED LOW IF DESIRED 

2 WHEN WRITING DATA INTO THIS SECTOR TRACK OR DATA REGISTER USER CANNOT 

READ THIS REGISTER UNTIL AT LEAST 8 MSEC AFTER THE RISING EDGE OF WE WHEN 
WHItING INTO THE COMMAND REGISTER STATUS IS NOT VALID UNTIL SOME 20mSEC 
LATER THESE TIMES ARE DOUBLED WHEN CLK 1 MHZ 

3 l5o„,|.j WORST CASE 24 MSEC 

■ TIME DOUBLES WHEN CLK 1 MHZ ^^____ 



WRITE ENABLE TIMING 






H H' 



— opj j— «»— ^ pyy , ""^n |— »— ^ 



H 



NOTE 

1 ABOVE TIMES ARE DOUBLED WHEN CLf 

2 CONTACT WDC FOR EXTERNAL CLOCK 

3 FDCLKANDFDDATAMAYBEREVERSED I 



i MHZ 

lA SEPABAtOH CinCUITS 

r?] DECIDES WHAT IS CLOCK 
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Internal Data Separation (XTDS =1) 



READ TIMING (XTDS = 0) 



Symbol 

TPWI 
TCI 


Characteristic 

Pulse Width Data and Clock 
Clock Cycle Internal 


MIn. 

150 
3500 


Typ. 


Max. 

1000 
5000 


Units 

nsec 
nsec 


Conditions 



Write Data Timing 



Symbol 


Characteristic 


Min. 


Typ. 


Max. 


Units 


Conditions 


TWGD 


Write Gate to Data 




1200 




nsec 


300 nsec ±: CLK tolerance 


TPWW 


Pulse Width Write Data 


500 




600 


nsec 




TCDW 


Clock to Data 




2000 




nsec 


±1 CLK tolerance 


TCS 


Clock Cycle Write 




4000 




nsec 


i CLK tolerance 


TWGH 


Write Gate Hold to Data 







100 


nsec 





liiceilaneous Timing 



Symbol 


Characteristic 


MIn. 


Typ. 


Max. 


Units 


Conditions 


TCD1 


Clock Duty 


175 






nsec 


2 MHz ± 1%See Note 


TCD2 


Clock Duty 


210 






nsec 




TSTP 


Step Pulse Output 


3800 




4200 


nsec 




TDIR 


Direct Setup to Step 


24 






nsec 




TMR 


Master Reset Pulse Width 


10 






usee 


These times doubled 


TIP 


Index Pulse Width 


10 






usee 


when CLK = 1 MHz 


TWF 


Write Fault Pulse Width 


10 






usee 











XTDS 1 






INTERNAL DATA 






SEPARATION cnC' OCK 






MUST BE TIED HIGH 






H h'™' '" — 1 h 


H h 


' Pwi -°-j H*-' pwi 


c 


r 




R 




C 








\ 


\ 








— . s „s -<- 




LEADING EDGE OF 
DATA PUISE 
MUST OCCUR IN 






\/////// 


SHADED AREA 
1 


NOTE 








INTERNAL DATA SEPARATION MAY WORK FOR SOMf APPl 


CAFION', H 




FOR APPLICATIONS REQUIRING HIGH (lAIA BECOVtRV Hf 


lAUll 1 I Y 




woe RECOMMENDS EXTERNAL DAIA •;( PARAFiON BF USE 









,., Z -T^ 



\ ' « » -W— j i— «►- —*»-A r**~ V-"!*- -«B»-j {■■■"" —^»A |— B»- 



n^< 



rx__rL 



READ TIMING (XTDS = 1) 



MISCELLANEOUS TIMING 
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T_ 



Fl_ 



— ««--J Lea- _-«!»J L«— 




miJE DATA Tl 




n n n n n fi n n n n n I] n n n n n n 



;;{DE><- 'J IJ !' iiu y u u u uu u u u U UIJ UIJ u 200 

2 080 



lap^aqannannnnnfin^ 



040 
MIN 



110 






q3b I I 

055^,^,014 125 
^^1^ 021 MIN 




L^ .640 J 



FD1771A CERAMIC PACKAGE 



FD1771B PLASTIC PACKAGE 



Information furnished by Western Digital Corporation is believed to be 
accurate and reliable. However, no responsibility is assumed by Western 
Digital Corporation for its use; nor any infringements of patents or other 
rights of third parties which may result from its use. No license is granted 
by implication or otherwise under any patent or patent rights of Western 
Digital Corporation. Western Digital Corporation reserves the right to 
change said circuitry at any time without notice. 



3128 Redhill Avenue, Box 2180 

Newport Beach, CA 92663 

(714) 557-3550, TWX 910-595-1139 
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/A 



V.J 






V. 



■ v.: 



r 



^^: 



u 'H 
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DEC 


HEX 


EXT 


000 


00 




001 


01 


NN NN 


002 


02 




003 


03 




004 


04 




005 


05 




006 


06 


NN 


007 


07 




008 


08 




009 


09 




010 


OA 




Oil 


OB 




012 


OC 




013 


OD 




014 


OE 


NN 


015 


OF 




016 


10 


DD 


017 


11 


NN NN 


018 


12 




019 


13 




020 


14 




021 


15 




022 


16 


NN 


023 


17 




024 


18 


DD 


025 


19 




026 


lA 




027 


IB 




028 


IC 




029 


ID 




030 


IE 


NN 


031 


IF 




032 


20 


DD 


033 


21 


NN NN 


034 


22 


NN NN 


035 


23 




036 


24 




037 


25 




038 


26 


NN 


039 


27 




040 


28 


DD 


041 


29 




042 


2A 


NN NN 


043 


2B 




044 


2C 




045 


2D 




046 


2E 


NN 


047 


2F 




048 


30 


DD 


049 


31 


NN NN 


050 


32 


NN NN 


051 


33 




052 


34 




053 


35 




054 


36 


NN 


055 


37 




056 


38 


DD 


057 


39 




058 


3A 


NN NN 


059 


3B 




060 


3C 




061 


3D 




062 


3E 


NN 


063 


3F 





TABLE 1 






OP CODE 


ASCII 


TRS-80 CONTROLS 


NOP 


NUL 




LD BC.NN 


SOH 




LD (BC) ,A 


STX 




INC BC 


ETX 




INC B 


EOT 




DEC B 


ENQ 




LD B,N 


ACK 




RLCA 


BEL 




EX AFrAF' 


BS 


BACKSPACE 


ADD HL.BC 


HT 




LD A, (BC) 


LF 


LINE FEED 


DEC BC 


VT 


VERTICAL TAB 


INC C 


FF 


FORM FEED 


DEC C 


CR 


CARRIAGE RETURN 


LD C,N 


SO 


CURSOR ON 


RRCA 


SI 


CURSOR OFF 


DJNZ DIS 


DLE 




LD DE.NN 


DCl 




LD (DE),A 


DC 2 




INC DE 


DC 3 




INC D 


DC 4 




DEC D 


NAK 




LD Dj,N 


SYN 




RLA 


ETB 


CONVERT TO 32 CHAR 


JR DIS 


CAN 


BACKSPACE CURSOR 


ADD HL.DE 


EM 


ADVANCE CURSOR 


LD A^ (DE) 


SUB 


CRT DOWN LINE 


DEC DE 


ESC 


CRT UP LINE 


INC E 


FS 


HOME CURSOR 


DEC E 


GS 


BEGIN LINE 


LD E,N 
RRA 


RS 


ERASE LINE 


US 


CLEAR FRAME 


JR NZ^DIS 


SP 


(SPACE) 


LD HL.NN 


I 




LD (NN),HL 


M 




INC HL 


# 




INC H 


$ 




DEC H 


% 




LD H,N 


& 




DAA 


! 




JR Z.DIS 


( 




ADD HL.HL 


) 




LD HL, (NN) 


^ 




DEC HL 


+ 




INC L 


f 




DEC L 


- 




LD L,N 


® 




CPL 


/ 




JR NC.DIS 







LD SP.NN 


1 




LD (NN) ,A 


2 




INC SP 


3 




INC (HL) 


4 




DEC (HL) 


5 




LD (HL),N 


6 




SCF 


7 




JR CDIS 


8 




ADD HL.SP 


9 




LD A, (NN) 


t 




DEC SP 


1 




INC A 


< 




DEC A 


= 




LD A,N 


> 




CCF 


? 





DEC 

064 

065 

066 

067 

068 

069 

070 

071 

072 

073 

074 

075 

076 

077 

078 

079 

080 

081 

082 

083 

084 

085 

086 

087 

088 

089 

090 

091 

092 

093 

094 

095 

096 

097 

098 

099 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 



HEX 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

4A 

4B 

4C 

4D 

4E 

4F 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

5A 

5B 

5C 

5D 

5E 

5F 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

6A 

6B 

6C 

6D 

6E 

6F 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

7A 

7B 

7C 

7D 

7E 

7F 



TABLE 2 
Z-80 OP CODE 
LD B,B 



LD 
LD 
LD 



B 



B 



LD B,H 



LD B 
LD B 
LD B 
LD C 
LD C 
LD C 
LD C 
LD C 
LD C 
LD C 
LD C 
LD D 
LD D 



LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD H 

LD H 

LD H 

LD H 

LD H 

LD H 

LD H 

LD H 

LD L 



LD 
LD 
LD 
LD 
LD 
LD 



L 

(HL) 
A 
B 
C 
D 
E 
H 
L 

(HL) 
A 
B 
C 
D 
E 
H 
L 

(HL) 
A 
B 
C 
D 
E 
H 
L 

(hl; 

A 
B 
C 
D 



(HL) 



B 



H 



(HL) 



L 

L 

L 

L, 

L 

L 
LD L, 
LD (HL) ,B 
LD (HL) ,C 
LD (HL) ,D 
LD (HL),E 
LD (HL),H 
LD (HL),L 
HALT 

LD (HL) ,A 
LD A,B 
LD A,C 
LD A,D 
LD A,E 
LD ArH 
LD A,L 
LD A, (HL) 
LD A^A 



ASCII TRS-80 BASIC 

@ 
A 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 

P 
Q 
R 
S 
T 
U 
V 
W 
X 
Y 
Z 

@ 

a 
b 
c 
d 

e 
f 

g 

h 
i 

j 

k 
1 
m 
n 
o 
P 

q 

r 
s 
t 
u 

V 

w 

X 

y 

z 



DEL 
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DEC 



HEX 



TABLE 3 
Z-80 OP CODE GRAPHIC 



TRS-80 BASIC 



128 


80 


129 


81 


130 


82 


131 


83 


132 


84 


133 


85 


134 


86 


135 


87 


136 


88 


137 


89 


138 


8A 


139 


8B 


140 


8C 


141 


8D 


142 


8E 


143 


8F 


144 


90 


145 


91 


146 


92 


147 


93 


148 


94 


149 


95 


150 


96 


151 


97 


152 


98 


153 


99 


154 


9A 


155 


9B 


156 


9C 


157 


9D 


158 


9E 


159 


9F 


160 


AO 


161 


Al 


162 


A2 


163 


A3 


164 


A4 


165 


A5 


166 


A6 


167 


A7 


168 


A8 


169 


A9 


170 


AA 


171 


AB 


172 


AC 


173 


AD 


174 


AE 


175 


AF 


176 


BO 


177 


Bl 


17 8 


B2 


179 


B3 


180 


B4 


181 


B5 


182 


B6 


183 


B7 


184 


B8 


185 


B9 


186 


BA 


187 


BB 


188 


BC 


189 


BD 


190 


BE 


191 


BF 



ADD A^B 


mmm ^^^ 


ADD A,C 


. . FOR 


ADD A,D 


80 81 82 83 ^^^^'^ 


ADD A,E 


SET 


ADD A^H 


n m ™ s CLS 
J u u u ^^^ 


ADD A,L 


ADD A, (HL) 


84 85 86 87 RANDOM 


ADD A, A 


NEXT 


ADC A,B 


1 ffl ri ffl DATA 


ADC A,C 


J U U LJ INPUT 


ADC A,D 


88 89 8A 8B DIM 


ADC A,E 


n m ra K ^^^^ 


ADC A,H 


* ft U fc LET 


ADC A,L 


J □ □ □ GOTO 


ADC A, (HL) 


8C 8D 8E BF ^^^ 


ADC A, A 


n m [1 B IF 


SUB B 


iJ B B B RESTORE 
90 91 92 93 GOSUB 


SUB C 


SUB D 


RETURN 


SUB E 


J] H ffl i ^^^ 


SUB H 


U D I B ^"^^p 


SUB L 


94 95 96 97 ELSE 


SUB (HL) 


TRON 


SUB A 


"3 ffl fl R TROFF 


SBC A,B 


E B m ffl DEFSTR 


SBC A,C 


98 99 9A 9B DEFINT 


SBC A,D 


DEFSNG 


SBC A,E 


3 B B i DEFDBL 


SBC A,H 


Id 11 H ID LINE 


SBC AyL 


9C 9D 9E 9F EDIT 


SBC A, (HL) 


ERROR 


SBC A, A 


T] m ri H RESUME 


AND B 


J Lii y Lfl OUT 


AND C 


AO Al A2 A3 ON 


AND D 


OPEN 


AND E 


n m m ra field 

^. -5 '" 1 GET 

_ J Lm Lid LJj 


AND H 


AND L 


A4 A5 A6 A7 PUT 


AND (HL) 


CLOSE 


AND A 


1 ffl fl H ^^^° 


XOR B 


11*1 MERGE 


XOR C 


^8 A9 AA AB NAME 


XOR D 


KILL 


XOR E 


p. ^ ™ p, LSET 


XOR H 


1 1 1 1 RSET 


XOR L 


Li Li [1 Li SAVE 

AC AD AE AF " ,„.„ 


XOR (HL) 


SYSTEM 


XOR A 


LPRINT 


OR B 


Tl ffl 1 ^ DEF 


OR C 


1 y U El POKE 


OR D 


BO Bl B2 B3 PRINT 


OR E 


CONT 


OR H 


T] fl m p LIST 


OR L 


1 1 1 1 LLIST 


OR (HL) 


B4 B5 B6 B7 DELETE 


OR A 


AUTO 


CP B 


CLEAR 


CP C 


3 H H i CLOAD 


CP D 


1 S i i CSAVE 


CP E 


88 89 BA BB NEW 


CP H 


TAB( 


CP L 


3 R H i '^^ 


CP (HL) 


1 1 1 1 FN 


CP A 


BC BD BE BF USING 



115 



TABLE 4 



DEC 



HEX 



EXT 



Z-80 OP CODE TAB TRS-80 BASIC 



192 


CO 




RET NZ 





VARPTR 


193 


CI 




POP BC 


1 


USR 


194 


C2 


NN NN 


JP NZ.NN 


2 


ERL 


195 


C3 


NN NN 


JP NN 


3 


ERR 


196 


C4 


NN NN 


CALL NZ.NN 


4 


STRING$ 


197 


C5 




PUSH BC 


5 


INSTR 


198 


C6 


NN 


ADD A,N 


6 


POINT 


199 


C7 




RST 


7 


TIME$ 


200 


C8 




RET Z 


8 


MEM 


201 


C9 




RET 


9 


INKEY$ 


202 


CA 


NN NN 


JP Z,NN 


10 


THEN 


203 


CB 


(EXTENDED 


INSTRUCTION SET) 


11 


NOT 


204 


CC 


NN NN 


CALL Z,NN 


12 


STEP 


205 


CD 


NN NN 


CALL NN 


13 


4- 


206 


CE 


NN 


ADC A,N 


14 


- 


207 


CF 




RST 8 


15 


* 


208 


DO 




RET NC 


16 


/ 


209 


Dl 




POP DE 


17 


^ 


210 


D2 


NN NN 


JP NC.NN 


18 


AND 


211 


D3 


NN 


OUT N,A 


19 


OR 


212 


D4 


NN NN 


CALL NC.NN 


20 


> 


213 


D5 




PUSH DE 


21 


= 


214 


D6 


NN 


SUB N 


22 


< 


215 


D7 




RST lOH 


23 


SGN 


216 


D8 




RET C 


24 


INT 


217 


D9 




EXX 


25 


ABS 


218 


DA 


NN NN 


JP C,NN 


26 


FRE 


219 


DB 


NN 


IN A,N 


27 


INP 


220 


DC 


NN NN 


CALL CNN 


28 


POS 


221 


DD 


(EXTENDED 


INSTRUCTION SET) 


29 


SQR 


222 


DE 


NN 


SBC A,N 


30 


RND 


223 


DF 




RST 18H 


31 


LOG 


224 


EO 




RET PO 


32 


EXP 


225 


El 




POP HL 


33 


COS 


226 


E2 


NN NN 


JP PO.NN 


34 


SIN 


227 


E3 




EX (SP),HL 


35 


TAN 


228 


E4 


NN NN 


CALL PO.NN 


36 


ATN 


229 


E5 




PUSH HL 


37 


PEEK 


230 


E6 


NN 


AND N 


38 


CVI 


231 


E7 




RST 20H 


39 


CVS 


232 


E8 




RET PE 


40 


CVD 


233 


E9 




JP (HL) 


41 


EOF 


234 


EA 


NN NN 


JP PE.NN 


42 


LOC 


235 


EB 




EX DE.HL 


43 


LOF 


236 


EC 


NN NN 


CALL PE.NN 


44 


,MKI$ 


237 


ED 


(EXTENDED 


INSTRUCTION SET) 


45 


MKS$ 


238 


EE 


NN 


XOR N 


46 


MKD$ 


239 


EF 




RST 28H 


47 


CINT 


240 


FO 




RET P 


48 


CSNG 


241 


Fl 




POP AF 


49 


CDBL 


242 


F2 


NN NN 


JP P,NN 


50 


FIX 


243 


F3 




DI 


51 


LEN 


244 


F4 


NN NN 


CALL P,NN 


52 


STR$ 


245 


F5 




PUSH AF 


53 


VAL 


246 


F6 


NN 


OR N 


54 


ASC 


247 


F7 




RST 30H 


55 


CHR$ 


248 


F8 




RET M 


56 


LEFT$ 


249 


F9 




LD SP.HL 


57 


RIGHT$ 


250 


FA 


NN NN 


JP M,NN 


58 


MID$ 


251 


FB 




EI 


59 


' (REM) 


252 


FC 


NN NN 


CALL M,NN 


60 




253 


FD 


(EXTENDED 


INSTRUCTION SET) 


61 




254 


FE 


NN 


CP N 


62 




255 


FF 




RST 3 8H 


63 





116 



Notes 




ISR 



^^^^^n^*» 








The book contains a detailed breakdown of the 
BASIC and Disk Operating System of the world's 
most popular personal computer, the Radio Shack 
TRS-80 (trademark of Tandy Corporation) 
microcomputer. 

You will find comments by memory address, 
tables of commands with their locaticnSp ai^'^hmetic 
routines using ROM CALLs, lessons on usmg the 
ROM routines, and supplementary information. 

Contains the TRS-80 Disassembled Handbook Hy 
Robert M. Richardson, Supermap by Roger Fuller, 
Hex Mem BASIC Monitor by John T. Phillipp, a Z- 
80 Disassembler by George Blank, DOS Map by 
John Hartford, the specification sheet for the 
Western Digital Floppy Disk Controller Chip, and an 
Appr^ndix listing the possible uses of different bytes 
of memory. 
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